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Prolog ı über das ultraFORTH83 


U Sehe 





ultraFORTH83 ist eine Sprache, die in verschiedener Hinsicht 
ungewöhnlich ist. Einen ersten Eindruck vom ultraFORTH83 und 
von unserem Stolz darüber soll dieser Prolog vermitteln. 


ultraFORTH33 braucht nicht geknackt oder geklaut zu werden. Im 
Gegenteil, wir hoffen, daß viele Leute das ultraFORTHB3 mög- 
lichst schnell bekommen und ihrerseits Weitergaben. 


Die Verbreitung, die die Sprache FORTE gefunden hat, war 
wesentlich an die Existenz von figFORTH geknüpft. Auch £figFORTHR 
ist ein public domain Programm, d.h. es darf weitergegeben und 
kopiert werden. Trotzdem lassen sich bedauerlicherweise ver- 
schiedene Anbieter die einfache Adaption des £figFORTE an 
verschiedene Rechner sahr teuer bezahlen. Hinzu konnt, daß das 
in Jahr 1979 erschienene figFORTE heute nicht mehr so aktuell 
ist, weil mit der weiten Verbreitung von Forth eine Fülle von 
eleganten Konzepten entstanden ist, die teilweise im Forth- 
Standard von 1983 Eingang gefunden haben. Daraufhin wurde von 
A.Laxen und M.Perry das P323 geschrieben und als Public Domain 
verbreitet. 

Dieses freie 83-Standard-Forth mit zahlreichen Utilities ist 
recht komplex, es wird auch nicht mit Handbuch geliefert, 
Insbesondere gibt es keine Version für C64- und Apple-Computer. 
Der C64 spielt jedoch in Deutschland eine große Rolle. 


Wir haben ein Forth für verschiedene Rechner entwickelt. Das 

Ergebnis ist das ultraFORTH83, eines der besten Forthsystene, 

das es gibt. 

Nachden Version 3.5 für den C64 erhältlich war, wurde es auf 

audere Rechner (Atari ST, Schneider CPC, CP/M-Computer, IBM PC 

und Kompatible) Übertragen und weiter entwickelt. 

Eine Anpassung an die anderen "kleinen" Commodore-Rechner wie 

C16, C116 und Plus4 wurde oft vermißt, denn eine andere 

einfache, billige und trotzdem gute Sprache für diese Rechner 

existiert anscheinend nicht. Tatsächlich gibt es bis jetzt 

(Novenber '87) außer dem eingebauten BASIC nur noch drei 

Assenbler (mit spezifischen Schwächen) und einen BASIC-Compi- 

ler, ultraFoORTH83 kann diese preiswerten Rechner etwas attrak- 

tiver machen. Bei der Entwicklung wurde darauf geachtet, daß 

die im C16-System vorhandenen Funktionen zusammen mit ultra- 

FORTRS3 nutzbar bleiben. 

Das Ergebnis: 

- I/O-Routinen und Interrupt-Handling des Betriebssystens 
sind integriert 

- Kernal/Betriebasysten sind unter ultraFORTH83 voll 


nutzbar 
-_ Monitor kan vom ultraFORTH83 aus aufgerufen war- 
den. 
- Grafik (bisher nicht nutzbar, ev. möglich) 
- Basic (bisher nicht nutzbar, ev. möglich) 


_ +4-Software (bisher nicht überprüft) 


Während der Anpassungsarbeiten wurde auch die Version für den 
C64 gründlich überarbeitet und präsentiert sich nun deutlich 
verbessert. Stark verbessert wurden u.a. der Tracer und 





SAVESYSTEN . Natürlich sollten die beiden Versionen so ähnlich 
wie irgend möglich sein, um die Portabilität und Wartbarkeit zu 
verbessern. Das Ergebnis haben Sie vielleicht schon bemerkt: ea 
gibt nur einen Satz Disketten und nur einen Quelltext für beide 
Rechner. Rechnerspezifische Teile konnten in den gemeinsamen 
Quelltext integriert werden. 


Das ultraFORTH83 enthält auf allen Rechnern : Multitasker, Heap 
(£für namenlose Worte), Dekompiler, Assembler und Editor. An 
vielen Stellen des Systems wurden Zeiger und sog. deferred 
Worte benutzt, die eine einfache Umgestaltung des Systems für 
verschiedene Gerätekonfigurationen ermöglichen. Besonderas 
Augennerk wurde auf einen extrem schnellen Biockpuffer-Mecha- 


nismus gerichtet, damit effiziente Massenspeichermanipulationen 
möglich werden. 


Für den C64 gibt es außerdem Graphik, Sprites, Turtlegraphik 
und eine Menge Demoprogramme, für den C16 eine Kassetten- 
schnittstelle mit Schnelllader. 


Noch einmal : Ihr dürft und sollt diese Disks an eure Freunde 
weitergeben. 

Aber wenn sich jemand erdreistet, damit einen Riesenreibach zu 
machen, dann werden wir ihn bis an das Ende der Welt und seiner 
Tage verfolgen |! 


Denn: Wir behalten uns die kommerzielle Verwertung des 
ultraFORTH83 vor ! 


Mit diesem Handbuch ist die Unterstützung des ultraFORTHB3 noch 
nicht zuende. Die VIERTE DIMENSION, Vereinszeitschrift derForth 
Gesellschaft e.V. c/o. Rainer Mertins 

Antilopenstieg 64 

2000 HAMBURG 54 
dient als Plattform. 


Wenn euch das ultraFORTEB3 gefällt, so schickt uns doch seine 
Spende von ca DM 20,- ,„ denn die Entwicklung des ultraPORTH83 
sowie des Handbuchs war teuer ( allein einige hundert DM an 


Tele£fonkosten), und der Preis, den wir verlangen, deckt nur die 
Unkosten. 


Schickt uns bitte auch Programme, die fertig oder halbfertig 
sind, Ideen zum ultraFORTH8B3, Artikel, die in der Prasse 
erschienen sind (schreibt selbst welche !)  „ kurz: Schickt uns 
alles, was entfernt mit dem ultraFORTH33 zu tun. hat. 


Und natürlich : Anregungen, Ergänzungen und Fehler im Handbuch 
und ultraFORTH83 


Pür die Autoren des ultraFORTRB83 : 


Bernd Pennemann, Treitschkestr. 20, 1000 Berlin 41 
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Hardware-Anforderungen 


Das ultraFORTH83 für C16/C64 läuft auf folgenden Rechnern: 


C16, C116 mit 16 Kbyte Gar nicht. Sorry I! 

C16, C116 mit 323 Kbyte Nur mit Diskettenlaufwerk 

C16, C116 mit 64 Kbyte oder Plus 4 Mit Diskettenlaufwerk oder 
Kasettenrekorder? . 

C64, 3X64 Mit Diskettenlaufwerk, Kas- 
settenrekorder nicht auspro- 
biert?:. 

c128 Im cC64 Emulationsmodus mit 
Diskettenlau£fwerk. 


i Die Ursprungsversion des C16 mit 16k5 ist nicht ultraFORTH83- 
fähig, da allein der FORTH-Kern den Speicher von $1000 bis 
S4B009 belegen würde. 

Der Umbau dieser Rechner auf 64kB kostet im Selbstbau ca. 
30DM, fertig gekauft ab 60DM und lohnt sich eigentlich immer. 
Eine ROM-Version, die mit den 16 KByte Speicher des cCıi6 
auskäne, befindet sich in der Öberlegung. Ein Mäzen, der uns 


einen anständigen Arbeitslohn dafür bezahlt, könnte das ganze 
sehr beschleunigen. 


Die Benutzung eines Diskettenlaufwerkes ist allerdings insbe- 
sondera für das Arbeiten mit Forth sehr zu empfehlen. 
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FORTH-Gesel isc 


Die ersten Schritte in ultraForTH33 
Diese Beispielssitzung soll die ersten Schritte bei der Benut- 
zung des ultraFORTH83 etwas erleichtern. 
Btartan des Systems 


Als erstes sollten Sie Ihren Rechner aus- und wieder einschal- 
ten, um ihn in einen definierten Ausgangszustand zu versetzen. 
Sollten Sie an einem C16 oder C116 sitzen und nun in der 


Einachaltmeldung etwas über so ca. '14000 bytes free' lesen, 
müssen wir Sie enttäuschen: Ihr Rechner ist zu klein. uitra- 
FORTH83 benötigt mindestens 32 Kbyte. Kähere Informationen 


hierzu finden Sie im Kapitel über "Hardware-Anfcrderungen". 

Als nächstes schalten Sie bitte Ihr Floppylaufwark ein. Falls 
sie kein Floppylaufwerk haben, so müssen Sie sicü sins beschaf- 
fen, denn zumindest für die erste Sitzung brauchen Sie sins {wo 
wollen Sie dann sonst Ihre Disketten reinschieben, Bie Schlawi- 
ner!). Jena Leser und Leserinnen, die später mit Kassettenre- 
korder arbeiten möchten, sollten nach dieser Beispielssitzung 
nochmal die 'Kassetten-Beispielssitzung' durchexerzieren, bevor 
sie sich auf den mühevollen Weg das Hinüberkopierens der 
Quelltexte von den Disketten machen. 
Nun wird dis erste Diskette eingeschoben. Achten Sie darauf, 
daß der Klebestreifen sicher auf der Schreibschutzkerbe klebt. 
Das Inhaltsverzeichnis der Diskette wird von BASIC aus mit: 


LOAD "$",8 
LIET 


angezeigt. Sie bekomman nun mehrere Files gelistet, von denen 
sie das für Ihren Rachner bestimmte File laden sollten: 


LOAD "<filename>"”,8 


Hierbei sei gleich bemerkt, daß das Betriebsystem auf den 
anderen drei Diskettenseiten keine Files findet, weil ultra- 
PORTKB3 seine eigene Diskettenverwaltung benutzt. 
Wenn Sie sich das geladene Programm mit LIST anzeigen laasen 
würden, erschiene nur eine einzige Zeile auf der Dildschirm. 


Aber tun Sie's lieber nicht, dann LIST zarstört manche 
Programme. Geban Sie lieber RUN ein. 


Ea erscheint jetzt - evtl. na:h eıner Demonstration - die 
Einschaltmeldung "ultraFORTH83 rev 3.9". Drücken Sie zin paar- 


mal <Return> ; das System quittie-t .etzt jeden Tastendruck mit 
ok . 


Den Befehlsumfang des ultraFORTH83 können Sie sich mit 
words Return> 


anzeigen lassen. 
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Erster Einstieg 


Als nächstes wird ein Miniprogramm {in Forth Kort genannt) 
kompiliert. Dazu geben wir ein : 


: test ." hallo " ; <Return> 


Achten Sie bitte darauf, die Zeile unverändert einzugeben. 
Insbesondere ist das Leerzeichen zwischen a" und hallo 
wichtig! Das System antwortet bei korrekter Eingabe nit ok . 


Ihr soeben kompiliertes Wort können Sie jetzt durch Eintippen 
seines Namens starten: 


test Return? 


Es erscheint hallo ok auf dem Bildschirm. Als nächstes wollen 
wir unser Miniprogramm erweitern : 


iı test BEGIN .” hallo” REPEXAT ; 
(Den Hinweis, daß <Return> zu drücken ist, lasse ich in 
folgenden weg!) Es erscheint der Hinweis TEST exists und dann 
ok = Beim Ausführen dieses Wortes TEST erscheinen nun 
unzählige hallo auf dem Bildschirm und alle Tastatureingaben 
werden ignoriert - das System befindet sich in einer Endlos- 
Schleife. 

Das macht nichts: Am C64 werden jetzt die Tasten <run/stop> und 
(restore> gleichzeitig gedrückt (am besten richtig draufrumhän- 
mern), bis das sinnlose hallo verschwunden ist. 

Beim C16 wird stattdessen die <stop>-Taste zusammen mit den 


(reset>-Schalter gedrückt. Es meldet sich der Monitor, von dem 
aus mit 


G1014 


ein Warmstart des ultraFORTH83 ausgeführt werden kann (siehe 
hierzu auch RESTART im Gilossartail des Handbuches). Nun 


sollte mit WORDS überprüft werden, ob die beiden TEST noch 
da sind. 


Ein Inhaltsverzeichnis Ihrer Forth-Quelltextdisketten können 
Sie sich mit 


1 list 


ausgeben lassen. Wenn Sie danach eine andere Diskette einlegen, 
werden Sie feststellen, daß 1 LIST immer noch das Inhaltsver- 
zeichnis der ersten Diskette zeigt . Das liegt daran, daß die 
virtuelle Diskettenverwaltung des Forth (auch Blockmachanismus 
genannt) einige Blöcke im Speicher vorrätig hält, um die 
Diskettenzugriffe zu minimieren. Daher sollten Sie, um Kuddel- 
Muddel zu vermeiden, unbedingt vor (!) jedem Diskettenwechsel 


Zlush 


eingeben. 
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Einstieg - 


Probieren Sie nun mal 
1 edit 


Falls der Editor vorhanden ist, werden Sie zunächst aufgefor- 
dert, ihr Kürzel (auch stamp genannt) einzugeben. Haben Sie 
sich noch keines ausgedacht, so drücken Sie nur «Return». 
Anschließend erscheint der Screen. 


Ist der Editor nicht vorhanden, so suchen Sie sich aus den 


Forth-Inhaltsverzeichnissen den Editor-Loadscreen heraus. Sie 
können ihn dann mit 


<screen-Nunmmer> load 


laden, wobei statt <screen-Nummer> die im Inhaltsverzeichnis 
angegebene Nummer eingesetzt wird. Ihre Diskettenstation 
sollte dann ca. 5 Minuten laufen, während die Nummern der 
Screens ausgegeben werden, die gerade geladen werden. Sie 
haben also genug Zeit, den folgenden Text in Ruhe zu lesen. 
Starten Sie bitte anschließend den Editor, wie az oben besch- 
rieben wurde. Sollte dis Diskettenstation jedoch gleich wieder 
zur Ruhe gekommen und ok ausgegeben worden sein, so haben sie 
mit großer Wahrscheinlichkeit die von LIST erzeugte Zeilen- 
nummer statt der screen-Nummer genommen, (Zumindest ist das bei 
mir immer so.) Sie haben also einen falschen Screen geladen. 
Hoffentlich nichts schlimnes. 


Nun sollten Sie das Kapitel über den Editor lesen. Falls Sie 
verzweifelt versuchen, ihn zu verlassen, dürfen Sie <run/stop> 
drücken. | 

Laden Sie nun nach Belieben Dinge, die Ihnen wichtig erscheinen 
und schauen Sis sich mit dam Rditor die Quelltextscreens an. 


Vor allem sollten Sie sich die sogenannten Loadsacreens ansehen. 
Sie enthalten in der Regel einige wichtige Definitionen, wie 
2.B. Vokabulare. Ferner laden sie alle Screens, die zur 
Applikation gehören. Man kann also dem Loadacreen ansehen, 
welche Teile der Diskette zu dieser Applikation gehören. Anm 
Ende des Screens sind oft mit \\ (beim C16/64: zwei Pfundzei- 
chen) wegkommentierte Forthworte wie SAVE zu finden. BAVE 
bewirkt, daß das geladene Programm gegen Löschen geschützt ist. 
Der Aufruf schadet nicht und außerdem schützt er wor "Schwer 
erkennbaren Ursachen von Systen-Crashs". 


Das Laden einiger Programme wird mit Meldungen der Form 
?ı CODE ?1 abgebrochen. Sie bringt zum Ausdruck, daß vor dem 
Laden der Anwendung erst der Assembler geladen werden muß. 


Das ultraFORTH83 wird mit BYE verlassen (siehe Glossarteil). 
Die Version für den C16 landet dabsi im Monitor: abenao wie 
durch Drücken der <Run/Stop> und <Reset>-Taste. Die "normale" 
Benutzung des Monitors verursacht keine Pröbleme bei einen an- 
schließenden Warnstart dos ultraFORTH8B3. Bei alleinigen Drücken 
von <Run/Stop> ohne <Reset> gelangt man in das BASIC, von dem 
aus mit 873 4115 ein ultraFORTH83-Warnstart ausgeführt werden 
kann. Das BASIC sollten Sie tunlichst nicht weiter benutzen, da 
ez dieselben Speicherbereiche wie das ultraFORTH83 benutzt und 


en 


der Rechner daher bald abstürzt. 
Die Version für den C64 landet nach Eingabe von BYE sofort im 


BASIC, von dem aus man mit SYS 2068 wieder in das ultra- 
FORTH83 gelangt. 


Die nächsten Schritte ... 
Anpassen der Speicherbelegung 


Es sei für C16/C116/Plus4-Benutzer mit 64 Kbyte RAM erwähnt, 
daß ihre ultraFORTH83-Version nur 32 Kbyte Speicher benutzt. 
Das prüfen Sie mit 


limit u. 


(Bitte den Punkt nicht vergessen). Wann 32768 ausgegeben wird, 


“erden nur 32 KByte benutzt. Sie ändern das (wenn gewünscht) 
mit 


sSfdoü * limit >body | cold 


Für die weitere Veränderung dar Speicherbelegung finden sie 
seinen Screen 'relocate the Systen' im Lieferumfang, dem sie 
auch seine Benutzung entnehmen. Eine Karte der Speicherbelegung 
des ultraFORTE23 finden Sie auf Seite 49. 

Den genannten Screen benötigen Sie auch, wenn Sie beim Laden 
einer Applikation auf die Meldung "Dictionary full" stoßen. 
Dann Äist der freie Speicher zwischen here und 'sp@ er- 
schöpft, in dem das System neu definierte Worte ablegt. Sie 
müssen, um jetzt weiterarbeiten zu können, die zuletzt defi- 
nierten Worte vergessen. Erscheint nach Drücken der <Return?>- 
Taste die Meldung "still full" , so ist der Speicher immer 
noch zu voll. Mit dem Wort BUFFERSE „ das Sie auf den 
Quelltextdisketten finden, können Sie die Zahl dar Blockpuffer 
(unterhalb LIMIT ) verringern und damit gleichzeitig den 
freien Platz oberhalb des Dictionary vergrößern. Mit weniger 
ala ca. 3 Puffern wird das Editieren von Quelltexten jedoch 
sehr zeitraubend. 

Im nächsten Abschnitt wird beschrieben, wie Sie das so verän- 
derte System auf der Diskette speichern. 


Erstellen eines eigenen Arbeitssystens 


Im folgenden beschreibe ich, wie Sie ein eigenes Arbeitszysten 
(oder als. Spazialfall wine Stand-Alone-Anwendung) erzeugen 
können. Damit ist ein System gemeint, das die Programme und 
Hilfsmittel enthält, die Sie oft benötigen. Im Prinzip können 
Sie diese natürlich nach Bedarf zu dam Kern hinzu kompilieren, 
aber schneller geht es natürlich, wenn achon (fast) alles da 
ist. Bei der Entwicklung ven umfangreichen Anwendungen ist es 
außerordentlich zeitsparend, wann man ein System zur Verfügung 
hat, das bereits die Teile der Applikation enthält, die 
fehlerfrei sind. Übrigens erfolgen alle Ein-/Ausgaben DEZIMAL. 
Wem dan nicht gefällt: HEX eingeben | 


Die meisten der für die Erzeugung eines Arbeitssysters notwen- 


 ubtraFORTneZ 





digen Schritte kennen Sie schon: 


1.) Booten des nackten Forth-Kerns (FileName:' _ ultraFORTH__') 

2.) Prüfen der Speicherbelegung. Die Differenz zwischen 
here u. und 
a0 @ u. 

sollte mindestens ca. 1 kByte betragen. Watıh Sie alle 

Quellen aller Diskettenseiten laden wollen, sollten Sie 

schon mit 5-6 kByte rechnen. 

ggf. Ändern der Speicherbelegung. (s. relocate-screen). 

Laden der gewünschten Quellen. Da Sie als Anfänger/in 

vermutlich noch nicht so recht wissen, was Sie eigentlich 

brauchen, hier ein paar Beispiele: Editor, Assembler, 

Tracer und evtl. die Kassettenversion. 

Falls Sie den Assembler wirklich dauerhaft in Systen haben 

wollen, sollten Sie nicht den "transienten' Assenbler 

laden. Dieser verschwindet nämlich beim nächsten SAVE 
wieder. 

) Auf jeden Pall müssen Sie SAVESYSTEN laden. 

} Falls Sie möchten, daß Ihr zu erstellendes Systen bei jedem 
Laden gleich irgendetwas ausführt (z.B. unzählige Male 
hallo ausdruckt), dann ist es jetzt nötig, "COLD oder 
"RESTART umzudefinieren. Das nennt sich dann "Stand-Alone- 
Anwendung". 

7.) Aufruf von SAVEBYSTEN 


m WW 
—— 


Ru 


Als Beispiel wird hier ein Stand-Alone-Systen vorgestellt, das 
permanent hallo druckt: 


1.) neu Booten: LOAD "<filename>”,8 
RUM 

2.) und 3.) entfällt da unsere Anwendung kaum Speicher braucht. 
.) Die 'Quelle’ geben wir von Hand ein: 

ı test BEGIN ." hallo” REPEAT ; 
.) Nun SAVESYSTEM laden. 
.} Damit TEST sofort nach dem Laden ausgeführt wird, nüssen 

wir folgendes eingeben : 

' kesat Is "cold 

7.) savesysten hallo-systen 


Das File hallo-systen können Sia jetzt immer laden, wenn Sie 
mal wieder jemand brauchen, der hallo zu Ihnen sagt. Sonst 
kann es leider nichts. 
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Usgang mit den Disketten 


Nun sollten Sie - vermutlich haben Sie bereits einige Systen- 
abstürze hinter sich - Sicherheitskopien Ihrer Disketten (Back- 
Ups) erstellen. Falls Sie stolze{r) Besitzer(in) von zwei 
Diskettenlaufwerken sind, laden Sie dazu am besten das Wort 
COPY2DISK . Es braucht allerdings ca. eine halbe Stunde pro 
Diskettenseite. Alle anderen kramen in ihren Diskettenkästen 
nach dem schnellsten Kopierprogramm. Aber Achtung : Nicht alle 
Kopierprogramme kopieren wirklich die ganze Diskette. Es 
funktionieren z.B. "Quickcopy' und 'sd.backup.xx', das bei 
neueren Laufwerken van Commodore mitgeliefert wird. Grundsätz- 
lich gilt: Wenn das Programm irgendwelche Filenamen wissen 
will, ist es schlecht. Wenn aa was von '"allocated blocks' oder 
‘whole Disk’ erzählt, ist es gut. {Wenn es was von '"wholy' 
oSder hole‘ Disk spricht, ist sein Englisch schlecht oder es 
ist gar kein Kopierprogramnm.) Wenn Sie nicht für jede Disket- 
tenseite mindestens 4 Diskettenwechsel machen müssen, ist eu 
entweder ein Superprogramm oder es taugt nichts. 

Wenn Sie neue Disketten für das Abspeichern von (Ihren eigenen) 
Forth-Screens vorbereiten möchten, sollten Sie das Wort 
FORMATDISK (im Lieferumfang enthalten) benutzen. Dadurch ist 
Ihre Diskette vor dem Überschreiben mit Files geschützt. 50 
vorbereitete Disketten dürfen nicht mit dem Validate-Befehl 
des Diskettenlaufwerkes aufgeräumt werden. 


Zur Druckerbenutzung auf dem C1&6 


Bisher habe ich nur den Treiber VC1526 getestet. Er funktion- 
iert mit meinem Citizen-"100 DM"-Drucker, soweit im Zusammen- 
hang mit diesem Drucker von "funktionieren” die kede sein’ kann. 
Da die meisten mir bekannten C16-Besitzer diesen Drucker ver- 
wenden, seien hier ein paar Hinweise zur Verringerung der 
erheblichen Störeinstrahlung gegeben: 


- Druckerkabel dick nit Aluminiumfolie umwickeln 


- Diskettenlaufwerk bei Druckerbenutzung ausschalten und umgse- 
kehrt. 


Andere Druckertreiber, dis den Userport des C6d benutzen, 
nüßten angepaßt werden. Ich habe nichts angepaßt, da ich die 
entsprechenden Drucker nicht besitze. Wenn jemand was anpaßt : 
Bitte eine Diskette mit den Quellen schicken -- wird in Zukunft 
von una "Wbeitet. 
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ultraFORTH83 für Kassettenrekorder 


Die Kassetten-Version ist für Ci6/C116 (mit 6AkB) und Plus4 
entwickelt worden, Aa Käufer dieser Billigrechner oft vor den 
Kauf des vergleichsweise teuren Diskettenlaufwerks zurück- 
schrecken. Trotzdem sei noch einmal darauf hingewiesen, daß 
ein Diskettenlaufwerk für ultraFORTH83 dringend zu empfehlen 
ıst, da einige (viel Speicher beanspruchende) Anwendungsfälle 
mit Kassettenrekorder gar nicht zu bearbeiten sind und da vor 
allem kleine Fehleingaben leicht zum Zerstören der selbst 
geschriebenen - in der Kassetten-Version speicherresidenten - 
Quellen führt. Also bitte wenigstens öfter abspeichern! Da 
Kassettenrekorder ebenso wie Peripheriegeräte bestimmter Firmen 
fürchterlich langsam sind (einer bekannten Heimcomputerfirma 
wird nachgesagt, daß man mit ihren Geräten kein Programm 
geladen kriegt, bevor es hoffnungslos veraltet ist) haben wir 


uns aus Benutzer (innen) freundlichkeit van folgenden Ideen lei- 
ten lassen: 


- Bin Kassettenschnellader muß her! Supertape 

- Wer schon 10 Minuten warten muß, soll wenigstens spazieren 
gehen können, statt alle 17 Sekunden eine Taste drücken zu 
müssen! Der Ladevorgang kann abansc wia der Sicherungsvorgang 
an einem Stück erfolgen. Diese Automatisierung erfordert 
einige Fehler-Prüfungen, die hoffentlich alle funktionieren. 

- Die (notgedrungen) speicherresidenten Quelltexte sollen 
auch einen normalen Systemabsturz überleben! 

- Die wertvollen Quelltexte sollen auch vor Bedienungs£fehlern 
sicher sein! Entgegen der üblichen Forth-Philosophie warden 
viele Bedienungsfehler abgefangen. 


Die Kassetten-Version besteht aus d Teilen: 


Dem ultraFORTH Kern 

Einer Ramdisk, die im Speicher ein Laufwerk simuliert. 

Biner Kassettenschnittstelle 

Den Programm Supertape, seinem Kassettenschnelllader, der mit 
3600 baud ca.10 mal 30 schnell ist wie die (Commodoreroutine. 
Bs wird von der Zeitschrift "c't" für alle gängigen Rachner 
angeboten. Supertape ist bisher leider nur für C16-kompatible 
Rechner angepaßt. Wir bedankan uns beim Heise-Verlag für die 
freundliche Genehmigung, Supertapa weiterzuverbreiten. 


Für Hinweise, die zur Verbesserung der Benutzung oder zur 
Aufdeckung von Fehlern dienen, wird zwar keine Belohnung 
ausgesetzt, aber mein Dank wird Euch auf ewig verfolgen. Da ich 
grade beim Danksagen sind, möchte Ich nich nochmal bei Doerte 
bedanken, die mich mit mit intensiven Gesprächen immer wieder 
in die schnöde Realität zurückholte und trotz aller Rifersucht 
den Rechner bisher nicht aus dem Fenster warf. 
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Eine Beispielssitzung 


ists Pe iE5 


sie befinden sich bereits in Forth und haben die 
Kassettenversion geladen. Ansonsten laden Sie as erstmal von 
Ihrer Diskette. Als erstes nüssen wir einen Teil des Speichers 
für die Ramdisk räumen. Er muß mindestens ca. 500 bytes lang 
sein, empfehlenswert sind jedoch etwa 16 Kbyte. Anschließend 
richten wir dort eine Ramdisk ein. Alle Blockzugriffe auf Drive 
1 und folgende gehen dann in die Ramdisk. 

Beispiel (für den C16) : 


Sc000 ' limit >body ! cold $C000 bis SFDOO werden ge- 
räumt (15 Kbyte) 

limit menmtop rdnew .. eine Ramdisk erzeugt 

1 drive .. auf Drive 1 geschaltet 

1 list .. und ein Screen gelistet. 

supertape Aktuelles Gerät setzen 


Für den C64 heißen die entsprechenden Adressen z.B. $9000 
und S$SCO000 statt SC000 und SFDO0O. Außerdem muß man COMMODORE 
statt SUPERTAPE schreiben. Falls später einmal das System 
abstürzt, können Sie ss einfach neu laden, wobei die Ramdisk 
bestehen bleibt. Voraussetzung ist natürlich, daß sie nicht 
zerschossen wurde und das neu geladene System sie auch nicht 
zerstört. Letzteres passiert z.B., wenn beim neuen System 
LIMIT zu groß ist. 

Vergleiche hierzu auch: RNUSE "COLD "’RESTART 


Wenn der Editor geladen ist, geben Sie ein: 
2 edit 


Sie können jetzt z.B. dan folgenden Text eingeben wobei 
Comnodore-Benutzer/innen statt '\' ein Pfundzeichen eingeben: 


\ Hein erster LadeScremm 


savesysten erster Versuch” 
id" meine kleines Ramdisk" 
saveramdisk 

autoload on 

savesysten Mit autoload” 
savaramdiak 

savesystem Hit. autoload” 
autolocad off 

saveramdiak 


Wenn Sie nun mit <home> in die linke obere Ecke des Bildschirms 
gehen und <ctr1> und <L> drücken, wird der beschriebene Screen 
auf die Ramdisk zurückgeschrieben und geladen. Nun werden ca. 5 
Minuten lang Daten auf dem Rakorder gesichert, wobei nach 


Ausführung jeder der obigen Zeilen der Bildschirm kurz auf- 
leuchtet. 
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Sie haben (wenn alles glatt gegangen ist) auf ihrer Kassette: 





erster Ver 
RD.meine kleine 
Mit autolo 
RD.meine kleine 
Mit autolo 
RD.meine kleine 


ein Forthsysten (z.B. für Systemabstürze) 
Die Ramdisk mit dem geschriebenen Screen 
Ein Forthsystem mit Autoload 
Die Ramdisk mit dem geschriebenen Scraen 
Ein Forthsystem wit Autoload 
Die Ramdisk mit dem geschriebenen Screen 


Hierzu sei bemerkt: 


Da Filenamen nur eine begrenzte Länge haben dürfen, fehlt bei 
langen Nanen der Rest. 


- Der Name einer Ramdisk beginnt immer mit "RD.". 
Es ist natüriich nicht nötig alles zweimal abzuspeichern, 

aber sicherer. 

Die Forthsysteme bestehen (falls Supertape benutzt wird) 

Grunde genommen aus drei einzelnen Files (s.u.). 

Dis beiden identischen Systeme "Mit autoload” werden nach dem 

Laden währand des Kaltstarts die unmittelbar folgende Randisk 


laden, sofern TAPEINIT als "RESTART installiert ist. 
Dies prüfen Sie mit 


im 


"’restart >body ® >nane .nama 


und erzwingen es mit 
' tapeinit Isa "'restart 


Informationen über die aktuelle Ramdisk erhalten Sie mit: .RD 
und RDCHECK 


Wenn Sie Queiltexte von Diskette auf Kassette kopieren möchten, 
benutzen Sie COPY und CONVEY (im Glossar nachlesen!!). Leider 
passen nicht sonderlich viele Quelltextscreens in eine Ramdisk. 
Pro Diskettenseite müssen Sie schon mit 2-6 Ramdisks A 20 kB 
rechnen. 

Die Kassettenversion ist neu und noch wenig getestet. Richten 
Sie sich daher bitte auf mindestens 2-3 Tage ein, an denan Sie 
ein Diskettenlaufwerk zur Verfügung haben sollten, un die 
Bedienung erlernen und kopieren zu können. Teilen Sie uns bitte 
(möglichst schriftlich) mit, welche Probleme Sis haban. Bevor 
Sie völlig verzweifeln, rufen Sie mich lieber an (Claus Vogt 
030 - 216 89 38), aber bitte nicht nachtz um 3 Uhr... 
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Die Ramdisk 





Bei Ausführung von TAPEINIT wird das defsarred Wort R/W mit 
dar Schreib-Leseroutine für die Ramdisks RAnMk/W nau besetzt. 
Daher müssen für die Benutzung der Ramdisk keine speziellen 
Worte benutzt werden, denn Zugriffe auf Blöcke, die sich auf 
Drive 1, 2, 3 etc. befinden, warden automatisch auf dis Ramdisk 
umgeleitet. 

Einige Worte der Ramdisk sind im Vokabular RANDIER . 

Beim Lese-Zugriff auf einen nicht vorhandenen Block der Ramdisk 
wird ein leerer Block geliefert. 


Die Ramdisk benutzt zur Ablage der Blöcke im Speicher ein 
komprimierendes Format: aufeinanderfolgende Leerzeichen werden 
in ein Zeichen zusammangsezogen, das wie folgt berschnst wird : 
($S7F+AnzahlDerLeerzeichen) . 

In diesen Format können keine Bytes, die größer als S7F sind, 
abgelegt werden. Daher funktioniert die Ramdisk nur mit norna- 
len Quelltexten. 

Es kann zu Probleme führen, wenn Bytes, dia größer als 880 
sind, in den Ramdisk-Bereich geschrieben werden. Dann werden 
beim nächsten Zugriff auf den beschädigten Block zuviele Bytes 
an das System zurück übergeben. Dieses reagiert beim nächsten 
FLUSH i.a. mit der Ausgabe no Fila und beim nächsten EMPTY- 
BUFFERB mit Systemzusammenbruch. Ist man auf die Meldung no 
File gestossen, so sollte COLD eingeben werden; dia Ramdisk 
bleibt dabei unverändert. 

Zur Korrektur von Fehlern, muß man das Speicherfornat der 
Ramdisk kennen. Es ist auf den Shadows der Queiltexte beschrie- 
ben. Da Fehlorkorrektur sehr mühsam ist, sollte die Ramdisk 
lieber oft genug gesichert werden. 

Blöcke, die nicht nur norsalen Text, sondern auch 
Graphikzeichen oder binäre Daten enthalten, müssen mit BIMNART 
deklariert werden. Säle belegen dann immer 1 kByte im Speicher. 


Die Ramdisk ist voll, wenn weniger als 1 kByte frei ist. 
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Die Kassettenschnittstelle 


Das aktuelle Gerät für alle Load/Save-Operationen kann mit den 
folgenden Worten umgeschaltet werden : 


COMMODORE SUPERTAPE {nur C16) FLOPPY 


Speichern: 


SAVESYSTEH sichert ultraFORTH-Bereich 
SAVERAMDISK sichert Ramdisk 


Laden: 
LOADRANDISK lädt Ramdisk 


Ein mit SAVESYSTEM im COMMODORE-Format oder auf FLOPPY 
gesichertes System wird wie gewohnt geladen. 


Ein mit SAVESYSTEN in SUPERTAPE -Format gesichertes Systen 
wird wie folgt geladen: 


= Rechner aus- und wieder einschalten. 

- MONITOR aufrufen. 

- Mit dem Monitor-Befehl L wird Supertape geladen. Während der 
Meldung PRESS PLAY ON TAPE können schon mal bis zu 8 Zeichen 
im Voraus eingetippt werden. (z.B. un dann Kaffee trinken zu 


gehen.) 
= Den (im Filenamen versteckten) Monitorbefehl Gö### abschicken 
(z.B. mit (cursor-up> <cursor-up> <return?). Es werden zwei 


weitere Teile das Systens geladen. Falls ein Ladefehler 
aufgetreten ist, wird ein Monitor-Break erzeugt. Ansonsten 
wird das ultraFORTH83 automatisch gestartet. 


Ea besteht die Möglichkeit nach Laden des Systems weitere 
Prozesse automatisch auszulösen. Vgl.: AUTOLOAD "RESTART "COLD 
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Schwer erkennbare Ursachsn von Systen-Crashs 


Oft hängen Systen-Crashs mit Referenzen auf nicht nehr existie- 
rende Worte zusammen. Beispiel: 


ı .blk blk @ ?dup IF . space THEN a 
' .bik Is .status 
cola 


Das deferred Wort .STATUS referenziert jetzt .BLK 
COLD (oder EMPTY oder FORGET .BLE ) ist .BLE 
die Referenz existiert weiterhin. 


. Nach 
gelöscht, 


Bei beiden Beispielen arbeitet das Systen erstmal wie gewohnt 
weiter. Erst viel später (nach überschreiben des ehemaligen 
Speicherbereichs von .BLE führt der Aufruf von „STATUS zu 
undefinierten Reaktionen (1.a. Systen-Crashs). 


Nach Belegung eines deferred Worteg BAVE 


eingeben oder 
aufpassen. 


Was tun bei Fehlern ? 


Wenn Ihr denkt, daß Ihr einen Fehler in ultraFORTH gefunden 
habt, dann tut bitte folgendes: 


- Überprüft, ob die Ursache vielleicht in "Schwer erkennbare 
Ursachen von Systemcrashs" beschrieben ist. 

Fahrt Euer System nochmal ganz neu hoch, bis Ihr die 

minimale Konfiguration erreicht habt, bei der der Fehler noch 

auftritt. Schreibt auf, was Ihr ladet. ? 

Hängt alle Zusatzgeräte ab, die gerade nicht benötigt werden. 

Schickt eine genaue Beschreibung an die Autoren das ultra- 

FORTABS3. Ggf. über die Forth-Gesellschaft in Hamburg. 

- Schreibt dazu, welchen Rechner Ihr habt, (ggf. Zusatzausrüs- 
tung) und welche Zusatzgeräte angeschlossen waren. 

- Wenn die Programme, die den Fehler verursachten, länger als 
ein oder zwei Screens sind, kopiert sie auf eine Diskette 

und schickt sie mit. 

Beschreibt den Ladeprozeß der Fehler-Konfiguration so genau 


wie möglich (am besten mit einem Lade-Screen, der alles 
automatisch hochfährt). 


- Schreibt dazu, wa Ihr den Fehler vermutet. 


Wir tun unser bestes, aber versprechen können wir nichts. 
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Errata 


Leider enthält ein Teil des Handbuches einige Fehler, die erst 
bei einer vollstandigen Überarbeitung entfernt werden können: 


S.28 Statt 


“"» Input: keyboard c64key c64key? c64decode c6dexpect [" 
muß es 


"Input: keyboard cb6Akey c64äkey? uhtdecode c6hdexpect ;" 
heißen. Das gilt analog für die Seiten 29, 36, 39 und 90. 


Ss.63 Die Anschrift ist veraltet. 


Ss.81 In der Erklärung von UM/MOD ist "division overflow” durch - 
"/0" zu ersetzen. 


s.111 Die Werte (BLOAD und (BSAVZ wurden entfernt. 

Alle Stellen im Handbuch, wo C64 steht, sind durch C64,C16,C116 
und Plus d zu ersetzen. 

Alle Stellen im Handbuch, wo serieller Bus steht, sind durch 


serieiler Bus (bzw.beim C16,C116 und Plus4 ggf. der parallele 
Floppybus) zu ersetzen. 
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1} Dictionarystruktur des ultraFÜüRTHRB3 


Das Forthsystem besteht aus einem Dictionary von Worten. Die 
Struktur der Worte und des Dictionaries soll im folgenden 
erläutert werden‘. 


1.1) Struktur der Worte 


Die Forthworte sind in Listen angeordnet ( s.a. Struktur der 
Vokabulare) . Die vom Benutzer definierten Worte werden 
ebenfalls in diese Listen eingetragen . Jedes Wort besteht. aus 
sechs Teilen. 

Es sind dies: 


a) "block" 


Der Nummer des Blocks, in dem das Wort definiert wurde ( 
siehe auch VIEW im Glossar ). 


b) "link" 
Einer Adresse {Zeiger) ,„ die auf das "Linkfeld"” Jes 
nächsten Wortes zeigt. 

c) "count" 
Die Länge des Namens dieses Wortes und drei 
Markierungsbits. 

d) "name" 


Der Name selbst. 


e) "code" 
Einer Adresse (Zeiger) ,„ die auf den Maschinencode zeigt. 
der bei Aufruf dieses Wortes ausgeführt wird. Die Adresse 
dieses Feldes heißt Kompilationsadresse. 


?) "parameter" 
Das Parameterfeld. 


Das Dictionary sieht dann so aus 
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1.1.1) Countfeld 


Das eount-Feld enthält die Länge des Namens ( 1..31 Zeichen ) 
und drei Markierungsbits : 





[Lrestrict | irmediate | indtrect | Länge | 
? & 5 


Bit: 4.8 





Ist das immediate-PBit gesetzt, so wird das entsprechende 
Wort im kompilierenden Zustand unmittelbar ausgeführt, 


und nicht ins Dictionary kompiliert (siehe auch 
IMMEDIATE im Glossary) 


Ist das restrict-Bit gesetzt, so kann das Wort nicht durch 
Eingeben vom Terminal ausgeführt werden, sondern kann 
nur in anderen Worten kompiliert werden. Gibt man es 
dennoch im interpretierenden Zustand ein, so erscheint 


die Fehlermeldung "compile only" ( siehe auch RESTRICT 
im Glossary ) 


Ist das indirect-Bit gesetzt, so folgt auf den Namen kein 
Codefeld, sondern ein Zeiger darauf. Damit kann der 
Names vom Rumpf ( Code- und Parameterfeld }) getrennt 
werden. Die Trennung geschieht z.B. bei Verwendung der 
Worte | oder ALIAS. 
Beispiel: ’ 1+ Alias addi 


und ergibt folgende Struktur im Speicher (Dictionary) : 
1 fink 1 $24 T RBDi | painter ] 
g 


( andere Korte E 


ur 8 _ 
\.block' | link! | $92 | j* | code | parameter | 


( Bei allen folgenden Bildern werden die Felder block link 
count nicht mehr extra dargestellt.) 





ao 
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1.1.2) Name 


Der Name besteht normalerweise aus ASCII-Zeichen. Bei der 
Eingabe werden Klein- in Großbuchstaben umgewandelt. Daher 
druckt WORDS auch nur groß geschriebene Namen. Da Namen 
sowohl groß als auch klein geschrieben eingegeben werden 
können, haben wir eine Konvention erarbeitet, die die 
Schreibweise von Namen festlegt: 


Bei Kontrollstrukturen wie DO LOOP etc. werden alle 
Buchstaben groß geschrieben. 


Bei Namen von Vokabularen, immediate Worten und Definierenden 
Worten, die CREATE ausführen, wird nur der erste Buchstabe 
groß geschrieben. Beispiele sind Is Forth Constant 


Alle anderen Worte werden klein geschrieben. Beispiele sind 
dup cold base 


Bestimmte Worte, die von immediate Worten kompiliert werden, 


beginnen mit der öffnenden Klammer "(" ,„ gefolgt vom Namen des 
immediate Wortes. Ein Beispiel: DO kompiliert (do 
2.1.3) Link 


über das link-Feld sind die Worte eines Vokabulars zu einer 
Liste verkettet. Jedes link-Feld enthält die Adresse des 
vorherigen link-Feldes. Jedes Wort zeigt also auf seinen 
Vorgänger. Das unterste Wort der Liste enthält im link-Feld 
eine Null. Die Null zeigt das Ende der Liste an. 


1.1.4) Block 


Das block-Feld enthält die Nummer dss Blocks, in dem das Wort 
definiert wurde. Wurde es von der Tastatur aus eingegeben, =0 
enthält das Feld Null. 


1.1.5) Code 


Jedes Wort weist auf ein Stück Maschinencode. Die Adresse 
dieses Code-Stücks ist im Code-Feld enthalten. Gleiche 
Worttypen weisen auf den gleichen Code. Es gibt verschiedene 
Worttypen, 2.B. :-Definitionen „ Variablen , Constanten , 
Vokabulare usw. Sie haben jeweils ihren eigenen 
charakteristischen Code gemeinsam. 

Die Adresse des Code-Feldes heißt Kompilationsadesse. 
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1.1.6) Parameter 


Das Parameterfeld enthält Daten, die vom Typ des Wortes 
abhängen. 
Beispiele : 


a) Typ "Constant" 
Hier enthält das Paramterfeld des Wortes den Wert der 
Konstanten. Der dem Wort zugeordnete Code liest den Inhalt 
des Paramterfeldes aus und legt ihn auf den Stack. 


b) Typ "Variable" 
Das Parameterfeld enthält den Wert der Variablen, der 
zugeordnete Code liest jedoch nicht das Parameterfeld aus, 
sondern legt dessen Adresse auf den Stack. Der Benutzer ' 


kann dann mit dem Wort ® den Wert holen und mit dem Wort 
I überschreiben. 


c) Typ ":-definition" 
Das ist ein mit : und ; &gebildetes Wort. In diesem 
Fall enthält das Parameterfeld hintereinander die 
Kompilationsadressen der Worte, die diese Definition 
bilden. Der zugeordnete Code sorgt dann dafür, daß diese 
Worte der Reihe nach ausgeführt werden. 


Beispiel : ! test dup ; 


ergibt: 


[ TEST | code | pointer Lpointer | 
& 
; 896% 


@ © 


& 
DUP | code | parameter | ® 


@ 


8866668696 


SE u 
EXIT | code | parameter | 


Das Wort : hat den Namen TEST erzeugt. 
EXIT wurde durch das Wort ; erzeugt 


d) Typ "Code" 
Worte vom Typ "Code" werden mit dum Assembler erzeugt. 
Hier zeigt das Codefeld in der Regel auf das 
Parameterfeld. Dorthin wurde der Maschinencode 
assembliert. Codeworte im ultraFORTH können leicht 
"umgepatcht" werden, da lediglich die Adresse im Codefeld 


auf eine neus (andere) Maschinencodesequenz gesetzt werden 
muß. 
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1.2) Vokabular-Struktur 


Eine Liste von Worten ist ein Vokabular. Ein Forth-Systen 
besteht im allgemeinen aus mehreren Vokabularen, die 
nebeneinander existieren. Neue Vokabulare werden durch das 
definlierende Wort VOCABULARY erzeugt und haben ihrerseits 
einen Namen, der in einer Liste enthalten ist. 

Gewöhnlich kann von mehreren Worten mit gleichem Namen nur das 
zuletzt definierte erreicht werden. Befinden sich jedoch die 
einzelnen Worte in verschiedenen Vokabularen, so bleiben sie 
einzeln erreichbar. 


1.2.1) Die Suchreihenfolge 


Die Suchreihenfolge gibt an, in welcher Reihenfolge die 
verschiedenen Vokabulare nach einem Wort durchsucht werden. 
Sie besteht aus zwei Teilen, dem auswechselbaren und dem 
fasten Teil. Der auswechselbare Teil enthält genau ein 
Vokabular. Dies wird zuerst durchsucht. Wird ein Vokabular 
durch Eingeben seines Namans ausgeführt, so trägt es sich in 
den auswechselbaren Teil ein. Dabei wird der alte Inhalt 
überschrieben. Einige andere Worte Mndern ebenfalls 
gelegentlich den auswechselbaren Teil. Soll ein Vokabular 
immer durchsucht werden, ao muß as in den festen Teil 
befördert werden. Dieser enthält null bis sechs Vokabulare und 
wird nur vom Benutzer bzw. seinen Worten verändert. Zur 
Manipulation stehen u.a. die Worte ONLY ALSO TOSS zur 
Verfügung. Das Vokabular, in das nsus Worte einzutragen sind, 
wird durch das Wort DEFINITIONS angegeben. Die 
Suchreihenfolge kann man sich mit ORDER ansehen. 


Beispiele : 
Eingabe : ORDER ergibt dann : 
Onlyforth FORTH FORTH ONLY FORTH 
Editor also EDITOR EDITOR FORTH ONLY FORTH 
Assembler ASSEMBLER EDITOR FORTH ONLY FORTH 


definitions ForthFORTH EDITOR FORTH ONLY ASSEMBLER 
: test ; ASSEMBLER EDITOR FORTE ONLY ASSEMBLER 
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dre/ue FORTH-Gesellse: 


1.2.2) Struktur des Dictionaries 


Der Inhalt eines Vokabulars besteht aus einer Liste von 
Worten, die durch ihre link-Felder miteinander verbunden sind. 
Es gibt also genauso viele Listen wie Vokabulare. Alle 
Vokabulare sind selbst noch einmal über eine Liste verbunden, 
deren Anfang in VOC-LINK steht. Diese Verkettung ist 
nötig, um ein komfortables FORGET zu ermöglichen. 

Man bekommt beispielsweise folgendes Bild: 


Voc-link ? 9 | Assenbler | Assembler | > © | Oniu | Oniy | 99» | Forth | 2» Hull 


[ Wort ] it | Gert) | Gert 
| Kart | fort | | dort | Wort 


ö d 8 
Huil Hull Hull 
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2) Die Ausführung von Forth-Worten 


Der geringe Platzbedarf übersetzter Forth-Worte rührt 
wesentlich von der Existenz des Adresseninterpreters her. 

Wie aus dem Kapitel 1.1.6 Absatz c) vielleicht klar wird, 
besteht eine :-Definition aus dem Codefeld und dem 
Parameterfeld. Im Parameterfeld steht eine Folge von Adressen. 
Ein Wort wird kompiliert, indem seine Kompilationsadresse dem 
Parameterfeld der :-Definition angefügt wird. Eine Ausnahme 
bilden die Iimmediate Worte. Da sie während der Kompilation 
ausgeführt werden, können sie dem Parameterfeld der 
:-Definition alles mögliche hinzufügen. 

Daraus wird klar, daß die meisten Worte innerhalb der 
‘-Definition nur eine Adresse, also 2 Bytes an Plat2 
"verbrauchen. 

Wird die :-Definition nun aufgerufen, a0 sollen alle Worte, 
deren Kompilationsadresse im Parameterfeld stehen, ausgefülirt 
werden. Das besorgt der Adressinterpreter. . 


2.1) Aufbau des Adressinterpreters beim 6502 


Der Adressinterpreter besteht aus den folgenden Registern : 
IP W SP 


Beim 86502 werden alle Register durch je zwei 
Zeropage -Speicherzellen simuliert. 


a) IP ist der Instruktionszeiger (englisch : Instruction 
Pointer). Er zeigt auf die nächste auszuführende 
Instruktion. Das ist beim ultraFÜORTHB3 die 
Speicherzelle, die die Kompilationsadresse des nächsten 
auszuführenden Wortes enthält. 


b) W ist das Wortregister. Ea zeigt auf die 
Kompilationsadresse dea Wortes, das gerade ausgeführt 
wird. 


c) SP ist der (Daten-) Stackpointer. Er zeigt auf das 
oberste Element des Stacks. 


d) RP ist der Returnstackpointer. Er zeigt auf das oberste 
Element des Returnstacks. 
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2.2) Die Funktion des Adressinterpreters 


NEXT ist die Anfangsadresse der Routine, die die Instruktion 
ausführt, auf die IP gerade zeigt. 

Die Routine NEXT ist ei Teil des Adressinterpreters. Zur 
Verdeutlichung der Arbeitsweise schreiben wir hier diesen Teil 
in High Level: 


Variable IP 


Variable W 

: Next IP@e e Wı 
2 IP +! 
W perform ; 


Tatsächlich ist NEXT jedoch eine Maschinencoderoutine, weil 
dadurch die Ausführungszeit von Forth-Worten erheblich kürzer 
wird. NEXT ist somit die Einsprungadresse einer Routine, die 
diejenige Instruktion ausführt, auf die das Register IP zeigt. 
Ein Wort wird ausgeführt, indem der Code, auf den die 
Kompilationsadresse zeigt, als Maschinencode angesprungen wird. 


Der Code kann 2.B. den alten Inhalt des IP auf den Returnstack 
bringen, die Adresse des Parameterfeldes im IP speichern und 
dann NEXT anspringen. 

Diese Routine gibt as wirklich, sie heißt "docol" und ihre 
Adresse steht im Codefeld jeder :-Definition. Das Gegenstück 
au dieser Routine ist ein Forth-Wort mit dem Namen EXIT . 
Dabei handelt es sich um ein Wort, das das oberste Element des 
Returnstacks in Jen IP bringt und anschließend NEXT 
anspringt. Damit ist dann die Ausführung der Colon-definition 
beendet. 


2% dup + ; 
2: 2x. ; 


Ein Aufruf von 


B 2. 
von der Tastatur aus führt zu folgenden Situationen : 


a) [2. I docol | 2#] . [EXIT] 
2 


[5 1| zarten | 
IP Stac tac 





#1 docol | DUP | + | EXIT  systen_| 
(#7 dacol [| DE | * | EXIT 5 Fr 
IP Stack Astac 


Nochmalige Ausführung von NEXT ern = 
( DUP ist ein Wort vom Typ "Code" 


c) | 2%] docal | Dup —n m Eier 


Nach der nächsten Ausführung von NEAT zeigt der IP auf 
EXIT und nach dem darauf folgenden NEXT wird addri 
wieder in den IP geladen : 


#3 | 2. I docol I 2%] . | EXIT] 


sta ek 


e) Die Ausführung von . erfolgt analog zu den Schritten 
db,c und d. Anschließend zeigt IP auf EXIT in 2. . 
Nach Ausführung von NEXT kehrt das System wieder in 
den Textinterpreter zurück. Dessen Rückkehradresse 


wird durch system angedeutet. Damit ist die Ausführung 
von 2. beendet. 
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2.3) Verschiedene Immediate Worte 
In diesem Abschnitt werden Beispiele für immediate Worte 
angegeben, die mehr als nur eine Adresse kompilieren. 


a) Zeichenketten, die durch " abgeschlossen werden, 
liegen als counted Strings im Dictionary vor. 


Beispiel: abort" Test" 
liefert : ! (ABORT" | 04 !| Tie!s!rtı! 


b) Einige Kontrollstrukturen kompilieren ?BRANCH oder 
BRANCH „ denen ein Offset mit 16 Bit Länge folgt. 


Beispiel: Q< IF sawap THEN - 


liefert : 1 0< I ?BRANCH ! 4 ! SWAP | - ı 
Beispiel:  BEGIN ?dup WHILE @ REPEAT 
liefert : | ?7DOP ! ?BRANCH ! B ! @ ' BRANCH ! -ı0 ! 


c) Ebenso fügen DO und ?DO einen Offset hinter das von 
ihnen kompilierte Wort (DO bzw. (?DO . Mit dem 
Decompiler können Sie sich eigene Beispiele anschauen. 


d) Zahlen werden in das Wort LIT oder CLIT , gefolgt 
von einem 16- oder 8-Bit Wert, kompiliert. 


Beispiel: [ hex ] 8 1000 
liefert : ! CLIT | 808 ! LIT | 81000 ! 
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3) Die Does>-Struktur 


Die Struktur von Worten, die mit CREATE .. DOES> erzeugt 
wurden, soll anhand eines Beispiels erläutert werden. 


Das Beispielprogramm lautet : 


: Constant Create ,„Ä„ Does> ® ; 
3 Constant drei 


Der erzeugte Code sieht folgendermaßen aus: 


Dar jmp-Befehl tritt 
bei 8502-Systemen 
auf und wird basi 
anderen Rechnern 
sinngemäß ersetzt. 


[ DREI] code | H8B3 | 
8 ir 


9292929959999 08 





Das Wort (;CODE wurde durch DOES> erzeugt. Es setzt das 
Codefeld des durch CREATE erzeugten Wortes DREI und beendet 
dann die Ausführung von CONSTANT . 

Das Codefeld von DREI zeigt anschließend auf jSmp dodoes> 
. Wird DREI später aufgerufen „ 30 wird der zugeordnete (oda 
ausgeführt. Das ist in diesem Fall jmp dodoes> „ dodoes> 
legt nun die Adresse des Parameterfeldes von DREI auf den 
Stack und führt die auf J3mp dodoes> folgende Sequenz -von 
Worten aus. ( Man beachte die Ähnlichkeit zu :-Definitionen). 
Diese Sequenz besteht aus ® EXIT . Der Inhalt des 
Parametarfeldes von DREI wird damit auf den Stack gebracht. 
Der Aufruf von -DREI liefert also tatsächlich 0003. 


Statt des jJSmp dodoes> und dar Sequenz von Forthworten kann 
sich hinter (; CODE auch ausschließlich Maschinencode 
befinden. Das ist der Fall, wenn wir das Wort ;CODE statt 
DOES> benutzt hätten. Wird diese Maschinencodesaquenz später 
ausgeführt, so zeigt das W-Register des Adressinterpreters auf 
das Godefeld des Wortes, dem dieser Coda zugeordnet ist. 
Erhöht man also das W-Register um 2 „ a0 zeigt == auf das 
Parameterfeld das gerade auszuführenden Wortes. 
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4) Vektoren und Deferred Worte 


Das ultraFORTH83 besitzt eine Reihe von Strukturen, die dazu 
dienen, das Verhalten des Systems zu ändern. 


4.1) deferred Worte 


Sie werden durch das Wort DEFER erzeugt. Im System sind 
bereits folgende deferred Worte vorhanden: 

R ’COLD ’RESTART ’ ABORT ’QquIT NOTFOUND ‚STATUS 
DISKERR 


Um sie zu ändern, benutzt man die Phrase: 

’ «<name> Is <namax> 

Hierbei ist inamex> ein durch DEFER erzeugtes Wort und 
<name> der Names des Wortes, das in Zukunft bei Aufruf von 
<namex> ausgeführt wird. 

Wird <“namax> ausgeführt bevor es mit IS initialisiert wurde, 
so erscheint die Meldung "Crash" auf dem Bildschirm. 


Anwendungsmöglichkeiten von deferred Worten 


Durch Ändern von R/W kann man andere Floppies oder eine 
RAM-Disk betreiben. Es ist auch leicht möglich, Teile einer 
Disk gegen überschreiben zu schützen. 

Durch. Ändern von NOTFOUND kann man z.B. Worte, die nicht im 
Dictionary gefunden wurden, anschließend in einer 
Disk-Directory suchen lassen oder automatisch als 
Vorwärtsreferenz vermerken. 

Ändert man ’COLD , so kann man die Einschaltmeldung das 
ultraFORTH83 unterdrücken und stattdessen ein Anwenderprogramm 
starten, ohne daß Eingaben von der Tastatur aus erforderlich 
sind ("Turnkey-Applikationen"). 

.STATUS schließlich wird vor Laden eines Blocks ausgeführt. 
Man kann sich damit anzeigen lassen, welchen Block einer 
längeren Sequenz das System gerade iädt und 2.B. wieviel 
freier Speicher noch zur Verfügung steht. 


4.2) >interpret 


Dieses Wort ist ein spezielles deferred Wort, das für dia 
Umschaltung dea Textinterpreters in den Kompilationszustand 
und zurück benutzt wird 


4.3) Variablen. 


Ez gibt im System dia Uservariable ERRORBANDLER . Dabei 
handelt sa sich um eine normale Variable, die als Inhalt die 
Kompilationsadresse eines Wortes hat. Der Inhalt der Variablen 
wird auf folgende Welse ausgeführt : 

ERRORHANDLER PERFORM 


Zuweisen und Auslesen der Variablen geschieht mit ® und |! 
Der Inhalt von ERRORHANDLER wird ausgeführt, wenn das Systen 
ABORT" oder ERROR" ausführt und das von diesen Worten 
verbrauchte Flag wahr ist. 
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4.4) Vektoren 


Das ultraFORTH83 benutzt die indirekten Vektoren INPUT und 
OUTPUT. Die Funktionsweise der sich daraus ergebenden 
Strukturen soll am Bespiel von INPUT verdeutlicht werden. 
INPUT ist eine Uservariable, die auf einen Vektor zeigt, in 
dem wiederum vier Kompilationsadressen abgelegt sind. Jedes 
der vier Inputworte KEY KEY? DECODE und EXPECT führt 
eine der Kompilationsadressen aus. Kompiliert wird solch ein 
Vektor in der folgenden Form: 


Input: vector <namel> <name2> <name3> <name4> [ 
Wird VECTOR ausgeführt, so schreibt er seine 
Parameterfeldadresse in die Uservariable INPUT . Von nun an 


führen die Inputworte die ihnen so zugewiesenen Worte aus. 
KEY führt also <NAME1> aus USW... 


Das Beispiel KEY? soll dieses Prinzip verdeutlichen: 

:. key? input ® 2+ perform ; 

Tatsächlich wurde KEY? im System ebenso wie die anderen 
Inputworte durch das nicht mehr sichtbare definierende Wort 
IN: erzeugt. 

Analog verhält es sich mit OUTPUT und den Outputworten 

EMIT CR TYPE DEL PAGE AT und AT? . Outputvektoren werden 
mit OUTPUT: genauso wie die Inputvektoren erzeugt. 

Mit der Input/Output-Vektorisierung kann man z.B. mit einem 
Schlag die Eingabe von der Tastatur auf ein Moden umschalten. 


Ein Beispiel für einen Inputvektor, der die Eingabe von der 
Tastatur holt : 


Input: keyboard cö4key cö4key? c6Adecode c64expect [ 
keyboard 


ergibt : 


input | peinter | 
599908 
ausgeführt von! key kay? dec.ode expect 


ultraFORTH83 





Seite 73 


Die Druckeranpassung 


Alle Ausgabebefehle (EMIT, TYPE, SPACE, etc) sind im 
ultraFORTHB83 vektorisiert, d. h. bei ihrem Aufruf wird die 
Codeadresse eines zugehoerigen Befehls aus einer Tabelle ent- 
nommen und ausgefuehrt. Im System enthalten ist eine Tabelle 
mit Namen DISPLAY ,„ die fuer die Ausgabe auf das Bildschirm- 


Terminal sorgt. Dieses Verfahren bietet entscheidende Vortei- 
le: 


- Mit einer neuen Tabelle koennen alle Ausgaben auf ein 

anderes Geraet (2. B. einen Drucker) geleitet werden, 

ohne die Ausgabebefehle selbst aendern zu muessen. 

- Mit einem Wort ( DISPLAY ,„ PRINTER ) kann das gesamte 

Ausgabeverhalten geaendert werden. Gibt man z. B. ein: 
INTER 1 LIST DISPLAY 

wird Screen 1 auf einen Drucker ausgegeben, anschliessend 

wieder auf den Bildschirm zurueckgeschaltet. Man braucht 

also kein neuss Wort PRINTERLIST zu definieren. 


Eine neus Tabelle wird mit dem Wort OUTPUT: erzeugt, 

: OUTPUT: CREATE )} DOES> OUTFUT ! 
QUTFUT: erwartet eine Liste von Ausgabeworten, die mit [ ab- 
geschlossen werden muss. Beispiel: 

OUTPUT: »PRINTER 

FPEMIT PCR PTYFE PDEL PPAGE PAT PAT? [ 
Damit wird eine neues Tabelle mit dem Namen >FRINTER ange- 
iegt. Beim spaeteren Aufruf von >PRINTER wird die Adresse 
dieser Tabelle in dis Uservariable OUTPUT geschrieben. Ab s0- 
fort fusehrt EMIT ein PEHIT aus, TYPE ein PTYPE usw. Die Rei- 
henfolge der Worte nach OUTPUT: userEMIT userCR usarTYPE 
userDEL userPAGE userAT userAT? muss eingehalten werden. 


Der folgende Quaeltext enthaelt die Anpassung fuer einen 
epson-Drucker RX50 am C64, und zwar sowohl mit Interface 
(ueber den seriellen Bus) als auch ohne. Im letzten Fall 
wird eine centronicas-Schnittstelle am Userport erzeugt. Die- 
aa Anpassung laeuft ohne Aenderungen mit allen uns bekannten 
Druckern mit centronics-Schnittstelle, lediglich die Befshle 
fuer die Steuercodes musasen gegebenenfalls angepasst war- 
den. 


Im Loadscreen (#40) muessen die Worte (s und (u wegkommen- 
tiert werden, je nachdem, ob man ueber den seriellen Bus 
oder den Userport drucken will. Zusaetzlich zu den reinen 
Ausgaberoutinen (Screens 45 und 46) sind eine Reiha nuetz- 
licher Worte enthalten, mit denen die Druckersteuerung sehr 
komfortabel vorgenommen werden kann. Das Wort PTHRU ermoeg- 
licht den Ausdruck von FORTH- Quelltexten in komprimierter 
Form (6 Screens pro Seite), DOKUMENT erlaubt die uebersicht- 


liche Darstellung von Screen und zugehoerigem Shadow neben- 
einander. 


HEART SDTUEAD MO 


MHIIUINAIPOOSIDNB Nm O 
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AO 
\ printer loadscreen 273ul85re) 
iyforth hex 


Vocabulary Print 
Print definitions also 


Create Prter 2 allot ( Semaphor) 
Prter unlock 


) ; immediate 
(u ; immediate \ for user-port 
: (83 [compile] ( ; immediate 
\: (ss ; immediatse \ for serial bus 
\: (u [compile] ( ; immediate 


(s 1 +load ) 
02 0A +thru 
Onlyforth 


clear 


41 
\ Buffer for the ugly SerBuz 28julB5re) 
100 | Constant buflen 
ı Variable Prbuf buflen allot Prbuf off 


I 2 >buf ( char --) 
Prbuf count + c! 1 Prbuf +! ; 


| ı £ull? (— 2) Prbuf o@ buflen = , 


ı 2: .buf ( --) 
Prbuf count -trailing 
4 0 busout bustype busoff Prbuf of? , 


ıp! ( char --) 

Pauss >r 

r& DOC ( Formfeesd ) = 

IE r> >buf .buf exit THEN 

r@ DA ( Linefeed ) = 

r@ OD ( CarReturn ) = or full? or 
IF .buf THEN r> >buf ; 
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mtc> VB DO/nSV/C ePue 


40 


setzt order auf FORTH FORTH ONLY FORTH 


fuer multitasking 


Centronios-Schnittstelle ueber User-Port 
(s Text bis ) wird ueberlesen 

serielle Schnittstelle (wegkommentiert) 
(u Text bis ) wird ueberlesen 


lade den naechsten Screen nur fuer 
seriellen Bus 


unbrauchbare Koepfe wag 


41 


Reim seriellen Bus ist die Ausgabe Jedes 
einzelnen Zeichens zu langsam 


Buffer fuer Zeichen zum Drucker 


ein Zeichen zum Buffer hinzufuegen 


Buffar voll? 
Buffer ausdrucken und leeren 


Hauptausgaberoutine fuer seriellen Bus 
Zeichen merken 
ist as ein Formfaad? 
ja, Buffer ausdrucken incl. Formfeed 
ist es ein Linefeed? 
oder ein CR oder ist der Buffer voll? 
ja, Buffer ausdrucken, CR/LF merken 





e ultraFORTH83 





Erläuterungen 


ic} 1985 bo/kss/tre/we 


Seite 33 


Az 


Hauptausgaberoutine fuer Centronics 

Zeichen auf Port , Strobe-Flanke 
ausgeben 

wartet bis Busy-Signmal zuruecksenommen 

wird 

gibt Steuerzeichen an Drucker 

Steuerzeichen fuer den Drucker 

in hexadezimaler Darstellung 

gegebenenfalls anpassen |! 


gibt Escape-Sequenzen an Drucker 


Zeilenabstand in Zoll 


Superscript und Subscript ausschalten 
Perforation ueberspringen ein/aus 


43 


Escape + 2 Zeichen 

nur fuer Goerlitz-Interface 
spezieller Epson-Steuermodus 

Kopie des Drucker-Steuer-Registers 


schaltet Bit in Steuer-Register ein 
schaltet Bit in Steuer-Reaister aus 


Diese Steuercodes muassen fuer andere 
Drucker mit Hilfe von ctrl:, esa: und 
ESC2 umgeschrieben werden 


Zeichenbreite in characters per inch 
eventuell durch Elite, Pica und Compress 
ersetzen 
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a 
\ printer controls 28Jjul85re) 


. 12cpi 10Ocpi (12cpi . 
17cpi 1Ocpi (17cpi ; 
: super 0 53 ESC2 ; 
sub 1 53 ESC2 ; 
lines ( #lines --) 43 ESC2 ; 
"long ( inches --) Q lines p! ; 
. american 0 52 ESC2 . 
german 2 52 ESC2 


prinit 
E Ascii x gorlitz Ascii b gorlitz 
Ascii e gorlitz Ascii t gorlitz 
Ascii z gorlitz Ascii 1 gorlitz ı 
(u OFF DDOS c! 
ODDO2 dup c® A or swap c! ); 


ı Variable >ascii >ascii on 
ı normal »ascii on 


Modus off 10Ocpi american suoff 
1/6" 0C "long CRET ; 


m rn ma 
OOIVVSRPODPOZIIOI NHAWPOID BD HMO 


45 

0 \ Epson printer interface O8ßsepd5re) 
1 

2 ı c>a ( BbO -- 8b1) 

3 »ascii ® IF 

4 dup 41 5B uwithin IF 20 or exit THEN 
5 dup Ci DB uwithin IE 7F and exit THEN 
6 dup DC EO uwithin IF 0AO xor THEN 

7 THEN ; 

8 

9 I Variable pcol pcol off 

A ı Variable prow prow off 

B 

C ı 2 pemit c>a p! 1 pcol +! ; 

D ı 1. per CRET LF Ai prow +! O0 pcol ! ; 
E pdel DEL -1 pcol +! ;; 

F ‚. !: ppage FF 0 prow ! 0 pcol |; 
10 ı : pat ( zeile spalte -- ) 
11 over prow @ < IF ppage THEN 
12 swap prow ® - DO ?DO pcr LOOP 
13 dup pcol < IF CRET pcol off THEN 
14 pcol ® - spaces ; 
15 ' ı pat? prow 8 pcol ®@ ; 
16 ı =: ptype ( adr count --) dup pcol +! 
17 bounds ?DO I c# c>a p! LOOP ; 







ultraFORTHBZ 






(c3 1905 Dafks/re/we 





| 


gegebenenfalls aendern 


Aufruf z2.B.mit E88 lines 
Aufruf 2.B mit 11 "long 
Zeichensaetze, beliebig erweieterbar 


Initialisierung ... 
. fuer Goerlitz-Interface 


. fuer Centronics: Port B auf Ausgabe 
PA2 auf Ausgabe fuer Strobe 
Flag fuer Zeichen-Umwandlung 


schaltet Drucker mit Standardwerten ein 


wandelt Commodore'’s Special-Asciil in 
ordinaeres ASCII 


Routinen zur Druckerausgabe Befehl 
ein Zeichen auf Drucker emit 
CR und LF auf Drucker or 
ein Zeichen loeschen (?!) del 
Formfeed ausgeben page 
Drucker zuf zeile und spalte at 
positionieren, wann noetig, 

neua Seite 

Position feststellen at? 


Zeichenkette ausgeben type 


IIOWPDOSINNBDND Hr OÖ 


HMHIIAWD>DOD SINN MO 
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\ Print pl 28julB5re) 


ı Output: >printer 
pemit pcr ptype pdel ppage pat pat? [ 


: bemit dup c64emit pemit : 


ı ber c64cr per 
ı btype 2dup c64type ptype ; 
: bdel c64del pdel ı 
ı bpage c64page ppage .! 
ı bat 2dup c64at pat 


| Output: >both 
bemit ber btype bdel bpage bat pat? f 


Forth definitions 


ı Printer 

nornal (u prinit ) >printer : 
: Both 

normal >both ; 


AT 
\ 2scr’s nscr’s thru ka 28Jul8ö5re) 
Forth definitions 


| : 2scr’s ( blki blk2 --) 
er LF 17cpi +twide +dark 15 spaces 
over 3 .r 13 spaces dup 3 .r 
"dark -wide cr b/blk 0 DO 
er I c/1 / 15 .r 4 spaces 
over block I + C/L 1- type 5 zpacesa 
dup block I + C/L 1- -trailing type 
C/L +LOOP 2drop or; 


ı ı nscr’s ( blki n -- b1lk2) 2dup 
bounds DÖ I ower I + 2scr's LOOP + : 


ı pthru ( from to --) 

Prter lock Output push Printer 1/8" 
1+ over - 1+ -2 and 8 /mod 

?dup IF awap >r 

0 DO 3 nscr’s 2+ 1+ pages LOOP r> THEN 
?dup IF 1+ 2/ nscr’s paga THEN drop 
Prter unlock ; 
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erzeugt die Ausgabetabelle >printer 


Routinen fuer Drucker 
und Bildschirm gleichzeitig (both) 


Ausgabe erfolgt zuerst auf Bildschirm 
{ Routinen von DISPLAY ) 


dann auf Drucker 
( Routinen von >PRINTER ) 


erzeugt dis Ausgabetabelle >both 


Worte sind von Forth aus zugaenglich 
legt Ausgabe auf Drucker 
legt Ausgabe auf Drucker und Bildschirm 
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gibt 2 Screens nebeneinander aus 
Screennummer in Fettschrift und 17cpi 


formatierte Ausgabe der beiden Ecreana 


gibt die Baoresna z0 aus: 1 3 
2 4 


gibt die Sareens von from bis to aus 
Ausgabegeraet merken und Printer ein 
errechnet Druckposition der einselnen 
Screens und gibt aie nach obigem Muster 
aus 


prrmktrepre 
DOAIDBODFTOHEIYIAWPOCONSDANBWONHMO 


NUT $>nnmz2anuı m unm- © 
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\ Printing with shadows 283jul8ö5re) 
Forth definitions 


! 2: 2scr’s ( blki1 bDIEK2 --) 
cr LF 17Tcepi +twide +dark 15 spaces 
dup 3.r 
-dark -wide cr b/blk 0 DO 
er I c/1 / 15 .r 4 spaces 
dup block I + C/L 1- type 5 spaces 
over block I + C/L 1- -traillng type 
CG/L +LOOP Zdrop cr, 


I e nscr’s ( blki n -- bIk2) 

0 DO dup [ Editor ] ahadow ® 2dup 
u> IF negate THEN 

+ over 2scr's 1+ LOOP , 


: dokumant ( from to --) 

Prter lock Output push Printer 
1/8" 1+ over - 3 /mod 

?dup IF swap >r 

0 DO 3 nscr’s page LOOP r> THEN 
?dup IF nscr's page THEN drop 
Prter unlock ; 


93 
\ 2scr's nscr’s thru ks 28julß5re). 
Forth definitions 40 | Conatant C/L 


| ı 2scr’s ( bIkil bik2 --) 

pcr LF LF 10cpi +dark 012 spaces 
over 3 .r 020 spaces dup 3 .r 

ar 17cpi -dark 

010 C/L * 0 DO cr over block I + C/L 
6 spaces type 2 spacosa 

dup block I + C/L -trailing type 

G/L +LOOP 2drop or ; 


I: nscr’s ( bIki n -- bIk2) under 0 
DO 2dup dup rot + 2scr’s 1+ LOOP nip ; 


: S4pthru ( from to --) 

Prter lock >ascii push >ascii off 
Ountput push Printer 

1/6" 1+ over - 1+ -2 and 6 /mod 

?dup IF zwap >r 

0 DO 3 nscr’s 2+ 1+ page LOOP r> THEN 
?dup IE 1+ 2/ nscr’s page THEN drop 
Prter unlock ; 
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Ic) 1085 nmp/nasrerme 


AS 


wie 2scr'’s (mit Shadow) 


wie nscor’s (mit Shadow) 
soresn Shadow 
sor+ti Sh+ti 


wie pthru (mit Shadow) 


a2 


Dasselbe nochmal fusr Standard-Forth 
Boresns mit 16 Zeilen zu 84 Zeichen 


Sishe oben 


Wie pthru fuer Standard-Bereanz 





IIUOaAW> WAT wm m O5 





A Ps. 


\ pfindex i1novö5re) 
Onlyforth Print also . 


: pfindex ( from to --) 


Prter lock Printer 0C "long 
+jump findex or page Jump 
Prter unlock display ;, 


aB 


\ Printspool 28Julö5re) 


\needs tasks .( Tasker?!; abort 
100 100 Task Printspool 


spool ( from to --) 
Printspool 2 pass 


pthru 
stop ; 


: endspool ( --) 


Printspool activate 
stop ; 
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AP 


Ein schnelles Index auf dan Drucker 


12" Papierlaenge 
Perforation ueberspringen 


4B 
Drucken im Untergrund 
Der Taaker wird gebraucht 
Der Arbeitsbereich der Task wird erzeugt 


Hintergrund-Druck ein 

von/bis werden an die Taak gegaben 
beim naschsten PAUSE Zuehrt die 
Task pthru auz und legt sich dann 
schlafen. 


Hintsrzrund-Druck abbrechen 
die Task wird nur aktiviert, 
er sie sich sofort wieder een 
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5) Der Heap 


Eine der ungewöhnlichen und fortschrittlichen Konzepte des 
ultraFORTH83 besteht in der Möglichkeit, Namen von Worten zu 
entfernen, ohne den Rumpf zu vernichten. 

Das ist insbesondere während der Kompilation nützlich, denn 
Namen von Worten, deren Benutzung von der Tastatur aus nicht 
sinnvoll wäre, tauchen am Ende der Kompilation auch nicht mehr 
im Dictionary auf, Man kann dem Quelltext sofort ansehen, ob 
ein Wort für dan Gebrauch außerhalb des Programmes bestimmt 
ist oder nicht. 

Die Namen, die entfernt wurden, verbrauchen natürlich keinen 
Speicherplatz mehr. Damit wird die Verwendung von mehr und 
längeren Namen und dadurch die Lesbarkeit gefördert. 

Namen, die später eliminiert werden sollen, werden durch das 
Wort | gekennzeichnet. Das Wort ! muß unmittelbar vor dem 
Wort stehen, das den zu eliminierenden Namen erzeugt. Der zo 
erzeugte Name wird in einem Speicherbereich abgelegt, der Heap 
heißt. Der Heap kann später mit dem Wort CLEAR gelöscht 
werden. Dann sind natürlich auch alle Namen, die sich im Heap 
befanden, verschwunden. 


Beispiel: I Variable sum 
1 sum ! 
ergibt : 
in heap: in Dictionary: 


I SUMT nainter_ ende BORi | 


55 PB PR 


Ea werden weitere Worte definiert und dann CLEAR ausgeführt 


: clearsaum ( -- ) 0 sum ! ; 
: add (2n-) zum +! ; 
: ahow (--) aum & .„ ; 
clear 


liefert die Worta CLEARSUM ADD SHOW , während der Name 
SUM durch CLEAR entfernt wurde; das Codefeld und der Wert 
0001 existieren Jedoch noch. (Das Beispiel soll'eine Art 
Taschenrechner daratellen. ) 


Für C64-Benutzer ist zu beachten, daß das Zeichen ! mit der 
Tastenkombination "“ CBM - " erreicht wird und wie ein halber 
punktierter Cursor aussieht. 
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6) Der Multitasker 


Das ultraFORTH83 besitzt einen recht einfachen, aber leistungs- 
fähigen Multitasker. Er ermöglicht die Konstruktion von 
Druckerspoolern, Uhren, Zählern und anderen einfachen Tasks. 
Als Beispiel soll gezeigt werden, wie man einen einfachen 
Druckerspooler konstruiert. Dieser Spooler ist in verbesserter 
Form auch im Quelltext des Multitaskers enthalten, hier wird er 
aus didaktischen Gründen möglichst simpel’ gehalten. 


6.1) Anwendungsbeispiel: Ein Kochrezept 


Das Programm für einen Druckerspooler lautet: 


580 100 Task background 


: spool background activate ı1 100 pthru stop ı 
maultitask spool 


Normalerweise würde PTERU den Rechner "lahmlegen”", bis die 
Bereens von 1 bis 100 ausgedruckt worden sind. Bei Aufruf von 
SPOOL ist das nicht so; der Rechner kann sofort weitere 
Eingaben verarbeiten. Danit alles richtig funktioniert, muß 
PTERU allerdings einige Voraussetzungen erfüllen, die dieses 
Kapitel erklären will. 

Das Wort TASK ist ein definierendes Wort, das eine Task 
erzeugt. Die Task besitzt übrigens Userarea, Stack, Returnstack 
und Dictionary unabhängig von der sog. Konsolen- oder Main- 
Task (siehe Bild). Im Beispiel ist $530 die Länge des reservier- 
ten Speicherbereichs für Returnstack und Userarea ("rlen” im 
Bild), 8100 die Länge für Stack und Dictionary ("slen" im 
Bild), jeweils in Bytes. Der Name der Taak ist in diesen Fall 
BACKGROUND 4. Die neues Task tut nichts, bis sie aufgeweckt 
wird. Das geschieht durch das Wort S5POOL . 

MULTITASE sagt dem Rechner, daß in Zukunft womöglich noch 
andere Tasks außer der Konsolentask auszuführen sind. Es 
schaltet also den Taskwechsler ein. 

Beil Ausführen von SBINGLEFASK wird der Taskwechsler abgeschal- 
tet. Dann wird nur noch die gerade aktive Task ausgeführt. 


Bei Ausführüng von SPOCL geschieht nun folgendes: 


Die Task BACKGROUND wird aufgeweckt und ihr wird der Code 
hinter ACTIVATE (nämlich 1 100 FTERU STOP ) zur Ausführung 
übergeben. Damit ist die Ausführung von SPOOL beendet, es 
können jetzt andere Worte eingetippt werden. Die Task Jedoch 
führt unverdrossen 1 100 PTERU sus, bis sie damit fertig ist. 
Dann stößt sie auf STOP und hält an. Man sagt, die Task 
schläft. _ 

wiil man die Task während des Druckvorganges anhalten, z.B. um 
Papier nachzufüllen, so tippt man ACKGROUND BLEEP ein. Dann 
wird BACKGROUND vom Taskwechsler übergangen. Boll es weiter- 
gehen, so tippt man BACKGROUND WAEE ein. 
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Häufig möchte man erst bei Aufruf von SPOOL den Bereich ala 


Argument angeben, der ausgedruckt werdstt soll. Das geht wie 
folgt: 


: newspool ( from to — ) 
background 2 pasa pthru stop ; 


Die Phrase BACKGROUED 2 PASS funktioniert ähnlich wie 
BACKGROUND ACTIVATE „ jedoch werden der Task auf dem Stack 
zusätzlich die beiden obersten Werte ( hier from und to} 
übergeben. Um die Screens 1 bis 100 auszudrucken, tippt man 
jetzt ein: 


1 100 newspool 


Es ist klar, daß BACKGROUND ACTIVATE gerade der Phrase 
BACKGROUND OÖ PASS entspricht. 


6.2) Implementation 


Der Unterschied dieses Multitaskers zu harkömnlichen liegt in 
seiner kooperativen Struktur begründet. Damit ist gemeint, daß 
jede Task explizit die Kontrolle über den Rechner und die 
Ein/Ausgabegeräte aufgeben und damit für andere Tasks verfügbar 
machen muß. Jede Task kann aber selbst "wählen", wann das 
geschieht. Es ist klar, daß das oft genug geschehen muß, danit 
alle Tasks ihre Aufgaben wahrnehmen können. 

Die Kontrolle Über den Rechner wird durch das Wort PAUSE 
aufgegeben. PAUSE führt den Code aus, der den gegenwärtigen 
Zustand der gerade aktiven Task rettst und die Kontrolle des 
Rechners an den Taskwachaler übergibt. Der Zustand einer Task 
besteht auz den Werten von Interpreterpointer (IP) ,‚, Return- 

stackpointer (RP) und des Stackpointers (SP). 

Der Taskwechsler besteht aus einer geschlossenen Schleife 
(siehe Bild). Jede Tank enthält einen Maschinencodesprung auf 
die nächste Task ("jnp KIXk" im Bild), gefolgt von der 
Aufweckprozedur ("jsr (wake" im Bild). Unter der Adresse, auf 
die der Sprungbefehl zielt, befinden sich die entsprächenden 
Instruktionen der nächsten Task. Ist diase Task gestoppt, so 
wird dort ebenfalls ein Maschinencodesprung zur nächsten Task 
ausgeführt. Ist die Task dagegen aktiv, so ist der Sprung durch 
den (nichts bewirkenden) BIT-Befehl ersstzt worden. Darauf 
folgt der Aufruf der Aufweckprozedur. Disse Prozedur lädt den 
Zustand der Task (bestehend aus 3P ‚» RP und IP) und setzt den 
Userpointer (UP), so daß er auf diese Task zeigt. 

SINGLETASK ändert nun PAUSE so, daß überhaupt kein Taskwech- 
sel stattfindet, wenn PAUSE aufgerufen wird. Das ist in den 
Fall sinnvoll, wenn nur eine Task existiert, nänlich die 
Konsolentask, die beim Kaltstart des Systens "erzeugt" wurde. 
Dann würde PAUSE unnötig Zeit damit verbrauchen, einen 
Taskwechsel auszuführen, der sowieso wieder auf disselbo Task 
führt. ETOP entspricht PAUSE ı Jedoch mit dem Unterschied, 
daß die leere Anweisung durch einen Sprungbefehl ersetzt wird. 
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Das Systen unterstützt den Multitasker, inden ez während vieler 
Ein/Ausgabeoperationen wie KEY ,a TYPE und BLOCK usw. PAUSE 
ausführt. Häufig reicht das schon aus, damit eine Taak (z.B. 
der Druckerspooler) gleichmäßig arbeitet. 


Tasks werden im Dictionary der Konsolsntask erzeugt. Jede 
besitzt ihre eigene Userarsa mit einer Kopie der Uservariablen. 
Die Implementation des Systens wird aber durch die Einchränkung 
vereinfacht, daß nur dis Konsolentask Ringabetext interpretie- 
ren bzw. kompilieren kann. Es gibt z.B. nur eine Suchreihen- 


folge, die im Prinzip für alle Tasks gilt. Da aber nur die 
Konsolentask von ihr Gebrauch nacht, 


ist das nicht weiter 
störend. 
Es ist übrigens möglich, aktive Tasks mit FORGET usw: zu 
vergessen. Das ist eine Eigenschaft, die nicht viele Systene 
aufweisen!l Allerdings geht das manchmal auch schief... Nämlich 
dann, wenn die vergessene Task einen "Semaphor" (s.u.) besaß. 


Der wird beim Vergessen nämlich nicht freigegeben und danit ist 
das zugehörige Gerät blockiert. 


Schließlich sollte man noch erwähnen, daß beiz Ausführen sines 


Tasknanens der Beginn der Userarea Äloser Task auf den Stack 
hinterlassen wird. 


6.2a) Die Menmorynap des ultraFORTH83 


Die Memorynap des ultraFORTH83 finden Sie auf 3.49. 

Der vom ultraFORTH83 benutzte Speicherbereich reicht von 
ORIGIN bis LIMIT . Unterhalb von ORIGIE bsfindsn sich die 
Systemvariablen, der Bildschirnspeicher sowie ein einzeiliges 
BASIC-Programan, walches das ultraFORTH8ß3 startet. Oberhalb von 
LIMIT befinden sich das Betriebssystenron und L/O-Ports. 
Unterhalb von LIMIT werden die Blockpuffer abgelegt; Jeder 
1 Kbyte groß. Es werden beim Systemstart scviale Puffer ange- 
legt, wie zwischen LIMIT und RO passen. 

Der Rest des Systens, zwischen ORIGIN und Rü gelegen, teilt 
sich in zwei Bereiche auf. Im oberen Bereich wachsen der 
Returnstack (von oben, bei RO ® beginnend) und die Userarea 
{von unten, bei WP® beginnend) aufeinander zu. ' 

IA unteren Bersich wachsen das Dictionary und der Datenstack 
plus Heap aufeinander zu. Wird mehr Flatz auf dem Heap 
benötigt, so wird der Datenstack automatisch nach unten ver- 
schoben. Im Dictionary. werden naua Worte abgelegt; dieser 
Bereich das Systans wächst deshalb während dar Kompilation am 
schnellsten. Dia Granze zwischen Datanstack und Dictionary ist 
daher die einzige, die vom System übsrwacht wird. 

Die Bootarea schließlich enthält die Anfangswerte der User- 
variablen, die währsnd des Kaltstarts von dort in die Userarsa 
kopiert werden. 

Das System belegt auch in der Zeropaga Speicherzellen, unter 


anderem mit dem Adreßinterpreter ("NEXT") und dan Stackpointern 
("RP" und "SP"). 


Erläuterungen ultraFüORTN83 5 


L Speicherbelegung einer Task ] 


rd 83 


Dictionary 


ı Userareas 
von 
Tasks Task3 
Task 
schlafend Task3 


o 
> 
o 


> © 


ni 2 
Co 65 LG 


DAIHIIIIIID GO 


o 
oO VO Vaac 


2» 0 


oO 
CO C9695HG 





| ultraFORTHEI 





Links in der Graphik sind die Forthworte 
angegeben, die dia entsprechenden Adres- 
sen liefern. 


c16 Der Assemblerprogrammierer kann den 
SFFFF | Bereich von N bis 80076 benutzen. 


Statt SYS(2064) steht SYS{4112). 


C64 Kermel 


SFB0B * LIMIT kann bis zu SFDOO betragen. 
u In $SFFFE,F steht ein Zeiger auf die 
limit 3 Interrupt-"Umleitung”. 
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8.3) Semaphore und "Lock" 


Ein Problem, dafl bisher noch nicht erwähnt wurde, ist: Was 
passiert, wenn zwei Tasks gleichzeitig drucken (oder Daten von 
der Diskette lesen) wollen? 

£s ist klar: Um ein Durcheinander oder Fehler zu vermeiden, 
darf das immer nur eine Task zur Zeit. 

Programmtechnisch wird das Problem durch "Semaphore" gelöst: 


Create disp 0 , 
ı newtype disp lock type disp unlock; 


Der Effekt ist der folgende: 

Wenn zwei Tasks gleichzeitig NEWTYPE ausführen, ao kann doch 
nur eine zur Zeit TYPE ausführen, unabhängig davon, wie 
viele FAUSE in TYPE enthalten sind. Die Phrase DISP LOCK 
schaltet nämlich hinter der ersten Task, die sie ausführt, die 
"Ampel auf rot" und 15ßt keine andere Task durch. Die anderen 
machen solange PAUSE , bis die erste Task die Ampel mit 

DISP UNLOCK wieder auf grün umschaltet, Dann kann eine (!) 
andare Task die Ampel hinter sich umschalten usw. . 

Übrigens wird die Task, die die Ampel au? rot schaltete, bei 
DISP LOCK nicht aufgehalten, sondern durchgelassen. Das ist 
notwendig, da ja TYPE ebenfalls DISP LOCK enthalten könnte 
(Im obigen Beispiel natürlich nicht, aber ea ist denkbar) 

Die Implementation sieht nun folgendermaßen aua: 

( Kan muß sich noch vor Augen halten, daß jede Task eindeutig 
durch den Anfang ihrer Userarea identifizierbar ist. ) 


DISP ist ein sog. Semaphor; ar muß den Anfangswert 0 
haben! 


LOCK schaut sich nun den Semaphor an: 
Ist er Null, so wird die gerade aktive Taak (bzw. der 
‘ Anfang ihrer Userarea) in den Semaphor eingetragen und 
die Task darf weitermarschieren. 
Ist der Wert des Semaphors gerade die aktive Task, so 
darf sie natürlich auch weiter. 
Wenn aber der Wert des Semaphors von dem Anfang der 
Userarea der aktiven Task abweicht, dann ist gerade 
eine andere Task hinter der Ampel aktiv und die Task 
muß solange PAUSE machen, bis die Ampel wieder grün, 
d.h. der Semaphor null ist. 


UNLOCK muß nun nichts anderes mehr tun, als den Wert des 
Semaphors wieder auf Null setzen. 


BLOCK und BUFFER sind übrigens au? diese Weise für die 
Benutzung durch mehrere Tasks gesichert: Ea kann immer nur 
eine Task das Laden von Blöcken von der Diskette veranlassen. 
Ob TYPE „ EMIT usw. ebenfalls gesichert sind, hängt von der 
Implementation ab. 
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6.4) Eine Bemerkung bzgl. BLOCK und anderer Dinge 


Wie man dem Glossar entnehmen kann, ist immer nur die Adresse 
des zuletzt mit BLOCK oder BUFFER angeforderten 
Blockpuffers gültig, d.h. ältere Blöcke sind, je nach der Zahl 
der Blockpuffer, womöglich schon wieder auf die Diskette 
ausgelagert wordern. Auf der sicheren Seite liegt man, wenn 


man sich vorstellt, daß nur ein Blockpuffer im gesamten System 
existiert. 


Nun kann jede Task BLOCK ausführen und damit anderen Tasks 
die Blöcke "unter den Füßen" wegnehmen. Daher sollte man nicht 
die Adresse eines Blocks nach einem Wort, das PAUSE 

ausführt, weiter benutzen, sondern lieber neu mit BLOCK 
anfordern. Ein Beispiel: 


.line ' ( block -- ) 
block c/l bounds DO I c# emit LOXOP ; 


ist FALSCH, denn nach EMIT stimmt der Adreßbereich, den der 
Schleifenindex überstreicht, womöglich gar nicht mehr. 
.line ( block -- ) 
e/ı1 0 DO dup block I + c@ emit LOOP drop ; 
ist RICHTIG, denn ea wird nur die Nummer des Blocks, nicht die 
Adresse seines Puffers aufbewahrt. 
.line ( block -- ) block c/l type ; 


ist FALSCH, da TYPE ja EMIT wiederholt ausführen kann und 


somit die von BLOCK gelieferte Adresse in TYPE ungültig 
wird. 


: >type ( adr len -- ) >r pad r# cmova pad r> type : 
.line ( block -- ) block c/l >type ; 


ist RICHTIG, denn PAD ist für jeden Task verschieden. 
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In der Version 3.8 wurde das Wort LIST dahingehend geändert, 
daß es, ähnlich wie INDEX , durch Drücken von Tasten angehal- 
ten und abgebrochen werden kann. Das bringt gewisse Problene 
mit sich, wenn dieses Wort in einer Task (z.B. einem Drucker- 
spooler) benutzt wird. In diesen Fall versucht sowohl die 
Konsolen-Task als auch die das Wort LIST enthaltende Task 
Eingaben von der Tastatur zu lesen. Tippt man einen Taxt ein, 
sc werden die einzelnen Zeichen zufällig auf die beiden Tasks 
verteilt. Daher sollte jede Task (natürlich mit Ausnahme der 
Konsolen-Task) ihren Eingabevektor so definieren, daß Sie keine 
Eingaben erhalten kann. 

Im folgenden wird gezeigt, wie ein Eingabevektor beschaffen 
ist, der keine Eingaben erlaubt (siehe auch S. 28): 


:s halt ." Task gestoppt!” stop : \ legt die Task völlig 
\ still 


Input: nul-Input halt false drop halt ; 


\ statt : key key? decode expect 


Für KEY könnte man auch immer ein bestimmtes (ungefährliches) 
Zeichen zurückliefern. Die Entscheidung sollte aber beim Pro- 
grammieren getroffen werden - wer weiß schon welches Zeichen 
immer und überall ungefährlich ist. Bei EXPECT läßt sich 
schwerlich eine bessere Lösung finden, da von BEPEIT die 
Variable SPAN verändert warden soll und es unangenehm werden 
könnte, wenn zwei Tasks gleichzeitig an der gleichen Variablen 
rumpfuschen. Jede Task, die jetzt am Anfang MNUL-INPUT aus- 


führt, bekommt keine Eingaben und wird schlimnstenfalls still- 
gelegt. 


Noch ein Hinweis : Eine Task sollte auf keinen Fall _ ABORT” 
oder ein ähnliches Wort ausführen. In diesem Fall würde sich 
diese Task wie die Konsolen-Task benehnen, was einen Systemab- 
aturz zur Folge hat. Selbst wenn diese Fehlermöglichkeit 
abgefangen und die Task angehalten wird, bleibt noch das 
Problen, daß Semaphore noch auf diese Task "gelockt" sein 


können und damit die Benutzung bestimmter Teile des Forth 
blockiert bleibt! 
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7) Debugging - Techniken 


Fehlersuche ist in allen Programmiersprachen die aufwendigste 
Aufgabe des Programmierers. 

Für verschiedene Programme sind in der Regel auch verschiedene 
Hilfsmittel erforderlich. Daher kann dieses Kapitel dis Fehler- 
suche nicht erschöpfend behandeln. Da aber Anfänger häufig 
typische Fehlar machen, kann man gerade für diese Gruppe 
brauchbare Hilfsmittel angeben. 





Wenn Sie sich die Ratschläge und Tips zu Herzen nahmen und den 
Umgang mit den Hilfsmitteln etwas Üben, werden 5is sich sicher 
nicht mehr vorstellen können, wie Sie jemals in anderen 
Sprachen ohne diese Hilfsmittel ausgekommen sind. Bedenken Sie 
bitte auch : Diese Mittel sind kein Heiligtum ; oft wird Bia 
sine Modifikation schneller zum Ziel führen. Scheuen SBSie sich 
nicht, sich vor dem Bearbeiten einer umfangreichen Aufgabe erst 
die geeigneten Hilfsmittel zu verschaffen. 


7.1) Voraussetzungen für die Fehlersucha 


Voraussetzung für die Fehlersuche ist inner ein übersichtliches 
und verständliches Programm. In Forth bedeutet das : 


-) suggestive und prägnante Namen für Worte 


-) starke Faktorisierung, d.h. sinnvoll zusammengehörende 
Teile eines Wortes zind zu einem eigenen Wort zZUusau- 
mnengefaßt. Worte sollten durchschnittlich nicht länger 
als 2 - 3 Zeilen lang sein | 


-) Öbergabe von Paranatern au? dem Stack statt in Variab- 
len, überall wo das möglich ist. 


Guter Stil in Forth ist nicht schwer, erleichtert aber sehr die 
Fehlersuche. Bin Buch, das auch diesen Aspekt behandelt, sei 
unbedingt empfohlen : 


"Thinking Forth" von Leo Brodie, Prentice Hall 1984. 


&ind diese Bedingungen erfüllt, ist as meist möglich, die Worte 
interaktiv zu testen. Damit ist gemeint, daß man bestinnte 
Parameter auf dem Stack versammelt und anschließend das zu 
testende Wort aufruft. Anhand der abgelieferten Werte auf dem 
Stack kann man dann beurteilen, ob das Wort korrekt arbeitet. 
Sinnvollerweise testet man natürlich die zuerst definierten 
Worte auch zuerst, denn ein Wort, das ZLchlerhafte Wortes 
aufruft, funktioniert natürlich nicht korrekt. 

Wenn nun ein Wort auf diase Woise als Lohlerhaft identifiziert 
wurde, muß mnan das Geschahen innerhalb des Wortes verfolgen. 
Das geschieht meist durch "tracen". 
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7.2) Der Tracer 


Angenommen, Sie wollen folgendes Wort auf Fehler untersuchen: 
(bitte tippen Bie ein, alle nötigen Bingaben sind Zatt und alle 
Ausgaben des ultraFORTH83 sind unterstrichen dargestellt.) 


ı -trailing ( addri ni -- addri n2 ) __compiling 


dup bounds ?DO Adup + 1- ce bl = _compilina 
IF LEAVE TEEN 1- 100P ; ok 


Die Funktion dieses Wortes können Sie, wenn sie Ihnen unklar 


ist, dem Glossar entnehnen. Zum Testen des Wortes wird ein 
String benötigt. Sie definieren: 


Create teststring ‚„"” Dies ist ein Tast . ok 





wobei Sie bitte absichtlich einige zusätzliche Leerzeichen 
eingefügt haben. Sie geben nun ein : 


teststring count .s_27 30160 ok 
-trailing .s_27 30160 ok 


und stellen zu Ihren Erstaunen fest, daß -TRAILING kein 
einziges Leerzeichen abgeschnitten hat. (Spätestens jetzt soll- 
ten Sie den Tracer laden. Prüfsn Sie, ob es das Wort DEBUG im 
FORTE Vokabular gibt, dann ist der Tracer schon vorhanden. 

Mit dem Tracer können Sie Worte schrittweise testen. Seine 


Bedienung wird anhand des soeben definierten Wortes demon- 
striert. 


sie geben ein: 

debug -trailing__ok 
Ba geschieht zunächst nichts. DEBUG hat nur den Tracer 
"scharf genacht". Sobald -TRAILING ausgeführt werden soll, 
wird der Tracer aktiv. 


Nun Zahren Sie £ort: 


testsatring count .s_27 30160 ok 
-trailing 


und erhalten folgendes Bild: 
30071 5609 2DUP 27 30160 





27 30160 ist der Stackinhalt, wie er von TESTSTRING COUNT 


geliefert wurde, nänlich Adresse und Länge des Strings 
TESTSTRING 1. 


(Für Fortgeschrittene : 56509 ist dia Kompilationsadresse van 
aDbUP ,„ 30071 die Position von ZDUP in -TRAILING .) 


A 


iDer genaue Wert dieser Zahlen ist systemabhängig. 
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Drücken Sie jetzt so lango <Return), bis OK erscheint. 
Insgesant wird dabei folgendes ausgegeben : 


debug -trailing teststring cowmt .a 27 301 ok 




















-trailing 

30971 5603 ZUR 27 30160. 

30073 _ 5819 SOUNDS 27 _30160 27 309160 
30075 __6730__t700 30160 30187 27 30160 
30079 3609 300? 27 30160 

30081. _#823 + 27 39180 27 30150 
30083 5991 1-. 301R7_ 27 30189 
300865 5066 Cd ___SOLlBE 27_30160 
30087_13375 _BL 32_27 30160 

310089 _ 6505 = _ 32 32 27 30150 
30091 7044 TBERANCH PPFP_27 30360 
300085 7956 LEMNME 27 203 

301013 d956_umESTO 37 30160 mE 


Sehen wir uns die Ausgabe nun etwas genauer An. Bei den ersten 
beiden Zeilen wächst der Wert ganz links immer um 2. Es ist der 
Inhalt des Instructionpointers (Ip), der immer auf die nächste 
auszuführende Adresse zeigt. Der Inhalt dieser Adresse ist 
jeweils eine Kompilationsadresse ( 5609 bei 2DUP usw.). Jede 
Konpilationsadresse benötigt zwei Bytes, daher muß der IP immer 
um 2 erhöht werden. 


immer? Kein, denn schon die nächste zeile zeigt eine Ausnahme. 
Das Wort (?DO erhöht den IP um 4 ! Woher konsmt eigentlich 
(?DO , in der Definition von -TRAILING stand doch nur ?D0 . 
(?DO ist ein von ?DO kompiliertes Wort, das zusätzlich zur 
Kompilationsadresse noch einen 16-Bit-Wert benötigt, nämlich 
einen Zeiger auf das zugehörige LOOP, das die Schleife beendet. 
Zwei ähnliche Fälle treten noch auf. Das IF aus den Quelltext 
hat ein ?7BRANCH kompiliert. Zn wird gesprungen, wenn der 
oberste Stackwert FALSE | = 0) ist.. Auch ?BRANCH benötigt einen 
zusätzlichen 16-Bit-Wert für den Sprungoffset. 


Nach LEAVE geht es hinter LOOP weiter, es wird UNNEST 
ausgeführt, das vom ; in -ZRAILIWG kompiliert wurde und das 
gleiche wie BXIT bewirkt, und damit ist das Wort -TRAILING auch 
beendet. Das hier gelistete Wort UNNEST ist nicht zu verwech- 
seln mit dem UHNEST des Tracers (siehe unten). 


Wo liegt nun der Fehler in unserer Definition von -TRAILIMG ? 
Um das herauszufinden, sollten gia dla Fehlerbeschreibung, dan 
Tracelauf und Ihra Vorstellung von der korrekten Arbeitsweise 
des Wortes noch einnal unter die Lupe nehmen. 


Der Stack ist vor und nach -PRAILING gleich geblieben, die 
Länge des Strings also nicht verändert worden. Offensichtlich 
wird die Schleife gleich beim ersten Mal verlassen, obwohl das 
1etzte Leichen das Textes ein Leerzeichen war. Die Schleife 
hätts also eigentlich mit dem vorletzten Zeichen weiter machen 
nüssen. Kit anderen Worten: 
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Die Abbruchbedingung in der Schleife ist falsch. äie ist genau 
verkehrt herum gewählt. Ersetzt man = durch = BOT oder - n 
sp funktioniert das Wort korrekt. Überlegen Sie bitte, warun - 
statt = MOT eingesetzt werden kann. (Tip: der Ir -Zweig wird 


nicht ausgeführt, wenn der oberste Stackwert FALSE (also = 0) 
ist.) 


Der ultraFORTH83-Tracer gestattet es, jederzeit Befehle einzu- 
geben, die vor dem Abarbeiten des nächsten Trace-Komnandos 
ausgeführt werden. Damit kann man z. B. Stack-Werte verändern 
oder das Tracen abbrechen. Ändern Sie probehalber beim nächsten 
Trace-Lauf von -TRAILING das TRUE-Flag (SFFFF) auf dem Stack 
vor der Ausführung von ?TARANCH durch Eingabe von NOT auf 0 
und verfolgen Sie den weiteren Trace-Lauf. Sie werden bemerken, 
daß die LOOP ein zweites Mal durchlaufen wird. 


Wollen Sie das Tracen und die weitere Ausführung des getraceten 
Wortes abbrechen, s0 geben Sie BRESTART ein. RESTART Lührt 
einen Warm-Start des FORTH-Systens aus und schaltet den Tracer 
ab, RESTART ist auch die Katastrophen-Notbrense, die man 
einsetzt, wenn man sieht, daß das Systen nit ddn nächsten 
Befehl zwangsläufig im Computer-Nirwana entschwinden wird. 


Nützlich ist auch die Möglichkeit, das Wort, dam als nächstes 
zur Ausführung ansteht, solange zu tracen, bis es ins aufru- 
fende Wort zurückkehrt. Dafür ist das Wort NEST vorgesehen. 
Wollen Sie also wissen, was BOUNDS macht, so geben Hia bitte, 


wenn BOUMDS als nächstes auszuführendes Wort angezeigt wird, 
NEST ein und Sis erhalten dann: 





30071 _S609 _2HP _ 27 30160 

30073 6319 BOUNDS _37 30160 

6821 5364 DVERTUUO 17 30160 27 30160 
6823 5623 + 30160 27 30160 37 30160 
6825 5259 SWAR 30187 30180 27 30160 
6827 AISE UNNEST 30160 30187 27 10150 

30075 8780_t{?Po 30160 30187 27 30160 


oo. 


Beachten Sie bitte, daß die Zeilen jetzt eingerückt werden, bis 
der Tracer automatisch in das aufrufande Wort zurückkehrt. Der 
Gebrauch von NEST ist nur dadurch eingeschränkt, daß sich 
einige Worte, die den Return-Stack nanipulieren, mit NEST nicht 
tracen lassen, da der Tracer selbst Gebrauch vom Return-Stack 
macht. Auf solche Worte muß man den Tracer nit DEBUG ansetzen. 


Wollen Gie das Tracen eines Wortes beenden, ohns die Ausführung 
des Wortes abzubrechen, »0 benutzen Sie UNHEST . 
Manchnal hat man in einem Wort vorkommende Schleifen bein 
ersten Durchlauf als korrekt erkannt und möchte diese nicht 
weiter tracen. Das kann sowohl bei DO...LOOPs dar Fall sein als 
auch bsi Konstruktionen mit BEGIN.. .WHILE...REPEAT oder 
BEGIN...UNTIL. In diesen Fällen gibt nan am Ends der Schleife 
das Wort. ENDLOOP ein. Die Schleife wird dann abgearbeitet und 
der Tracer meldet sich erst wieder, wenn er nach den Wort 
angekommen ist, bei dem ENDLOOP eingegeben wurde. 
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Haben Sie den Fehler gefunden und wollen deshalb nicht mehr 
tracen, so müssen Sie nach dem Ende des Tracens END-TRACE odar 
jederzeit REBSTART eingeben, ansonsten bleibt der Tracer 
"scharf", was zu merkwürdigen Erscheinungen führen kann; außer- 


dem verringert sich bei eingeschaltetemn Tracer die 
Geschwindigkeit dem Systens. 


Der Tracer 1äßt sich auch mit dem Wort TRACE' starten, das 
seinerseits ein zu tracendes Forth-Wort erwartet. Sie könnten 
alao auch im obigen Beispiel eingeben: 


teststring count trace’ -trailing 


und hätten damit disanaalbe Wirkung erzielt. TRACE' schaltet aber 
in Gegensatz zu DEBUG nach Durchlauf des Wortes den Tracer 
automatisch mit END-TRACE wieder ab. 


Beachten Bie bitte auch, daß die Worte DEBUG und TRACE' das 
Vokabular TOOLS mit in die . Suchreihenfolge aufnshmen. Sie 
sollten also nach - hoffsntliich erfolgreichen - Tracelauf die 
Suchordnung wieder unschalten. 


Der Tracer ist ein wirklich verblüffandes Werkzeug, nit dan man 
sehr viele Fehler schnell finden kann. Er ist gleichsen ein 
Mikroskop, mit dem man tief ins Innere von Forth schauen kann. 


Für die sehr neugierigen Forth'’ler will ich noch Hinweise zur 
Funktionsweise des Tracers geben. 


Der Tracer modifiziert den Adressinterpreter (siehe Kap. 2) so, 
da er bei jeden ausgeführten Wort überprüft, ob während der 
Ausführung dieses Wortssa die weiter oben gezeigte Tabelle 
ausgegeben warden soll oder nicht. Die einfachste Möglichkeit, 
einfach immer die Daten auszudrucken, izt ausgesprochen unprak- 
tisch, denn der Programmierer wird damit förmlich erschlagen. 
Der "alte" Tracer (ultraFORTH83 rev. 3.5) gab die Daten nur 
aus, wenn die Höhe des Returnstacks seinen vorgegebenen Wart 
entsprach. In der Regel war das nur in einem Wort der Fall, 
schaffte aber Probleme, wenn Worte getraced wurden, die die 
Höhe des Returnstacks änderten. 

Der Tracer, der ab Version 3.8 enthalten ist, verwendet statt 
dessen den IP. Zeigt der Interpreter in sin Intervall, daß z.B. 
nit Hilfe des Wortes DEBUG gesetzt worden kann, wird die 
Tracer-Information ausgegeben. Dadurch ist der Tracer wessut- 
lich bedienungsfreundälicher; die Implementation war für uns 
jedoch atwasa knifflig... 


Erläuterungen 
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7.3) Stacksicherheilt 


Anfänger neigen häufig dazu, Fehler bei der Stackmanipulation 
zu machen. Erschwerend kommt häufig hinzu, daß sie viel zu 
lange Worte schreiben, in danen es dann von unübersichtlichen 
Stackmanipulationen nur so wimmelt. Es gibt einige Worte, die 
sehr einfach sind und Fehler bei der Stacknanipulation früh 
erkennen helfen. Denn leider führen schwerwiegende Stackfehler 
zu "mysteriösen" Systencrashs. 


In Schleifen führt ein nicht ausgeglichener Stack oft zu 
solchen Fehlern. Während der Testphase eines Programns oder 


Wortea sollte man daher bei jedem Schleifendurchlauf prüfen, ob 
der Stack evti. über- oder leerläuft. 


Das geschieht durch Eintippen won : 


LOOP compile ?stack [compile] LOOP : immediate restrict 
+L00P compile ?stack - [compile] +L0O0OP : immediate restrict 
UNTIL compile ?stack L[compile] UNTIL ; immediate restrict 
REPEAT compile 7stack [compile] REPEAT ; immediate restrict 
E : compile ?stack ; 


Versuchen Sie ruhig, herauszufinden wie die letzte Definition 
funktioniert. Es ist nicht kompliziert. 


Durch diese Worte bekommt man sehr schnell mitgeteilt, wann ein 
Fehler auftrat. Es erscheint dann die Fehlermeldung ; 


<nane> stack full 


wobei <namse> der zuletzt vom Terminal eingegebene Nane ist. 
Wenn man nun Überhaupt keine Ahnung hat, wo der Fehler auftrat, 
so gebe man ein : 


z unravel xdrop rdrop rdrop \ delete errorhandlier-nest 
cr .” trace dımp on abort is :" cr 


BEGIN rp@® rü @ - \ until stack ezpty 
WEILE r> dup B u.r space 


2- ® >nama .name cr REPEAT 
(error ; 
’ unravel aerrorhandlar ! 
Sie bekommen dann bai Eingabe von 
10/ 


ungefähr folgenden Ausdruck : 





trace dunmp is: 
1871 7??? 
7928 UM/MOD 
0 ?7?7? 
8052 M/MOD 
8065 /MOD 
12312 EXECUTE 
13076 INTERPRET 
13199 'QUIT 
/ aivison overf£flow 


"Qgur? INTERPRET und EXECVTE rühren vom Textinterpreter her. 
Interessant wird az bei /MOD . Wir wissen nämlich, dat /MOD 
von / aufgerufen wird. /MOD ruft nun wieder M/MOD auf, in 
“/mOon gehta weiter nach UM/WMOD . Dieses Wort ist in Coda 
geschrieben, bei einem Fehler ruft ea aber DIVOVL auf. Dieses 
Wort ist nicht sichtbar, daher erscheinen drei Fragezeichen. 
Dieses Wort "verursachte" den Fehler, indem es ABORT" aufrie£f. 


Nicht imner treten Fehler in Schleifen auf. Es kann auch der 
Fall sein, daß ein Wort zu wenig Argumente auf dem Stack 


vorfindet. Diesen Fall sichert ARGUMENTE . Die Definition 
dlesss Wortes ist: 


ı ARGUMENTS ( n=-2 
depth 1- < abort"” not enough arguments” : 


Es wird folgendermaßen benutzt; 


; -trailing ( adr len — ) 2 arguments en 
wobei die drei Punkte den Rest des Quelltextes andeuten sollen. 
Findet -TRAILING nun weniger als zwei Werte auf dem Stack 
vor, so wird eine Fehlermeldung ausgegeben. Natürlich kann man 


damit nicht prüfen, ob die Werte auf den Stack wirklich für 
-TRAILING bestimmt waren. 


Sind Sie als Programmierer sicher, daß an einer bestimmten 
Stelle im Programm eine bestimmta Anzahl von Werten auf den 
Stack liegt, so können Bie das sbenfalls sicherstellen: 


: is-depth [ n -- ) depth 1- - abort"” wrong depth" ; 
IS-DEPTE bricht das Programm ab, wenn die Zahl der Werte auf 
dam Stack nicht n ist, wobei n natürlich nicht mitgezählt 
wird. Es wird analog zu ARGUMENTS benutzt. 


Mit diesen Worten lassen sich Stackfehler oft feststellen und 
lokalisieren. 





7.4) Aufrufgeschichte 


Möchte man wissen, was geschah, bevor ein Fehler auftrat und 
nicht nur, wo er auftrat (denn nur diese Infornation liefert 
UNRAVEL), so kann man einen modifizierten Tracer verwenden, bei 
dem man nicht nach jeder Zeile <RETURN> drücken nuß: 
Does> cr rdepth 24 spaces 
dup 2- >name .name >r : 
Hierbei wird ein neues Wort mit dem Nauen 5 definiert, das 
zunächst das alte Wort : aufruft und so ein Wort im 
Dictionary erzeugt. Das Laufzeitverhalten dieses Wortes wird 
aber so geändert, daß es sich jedesmal wieder ausdruckt, wann 
es aufgerufen wird. Alle Worte, die nach der Redefinition (so 
nennt mar das erneute Definieren eines schon bekannten Wortes) 
das : definiert wurden, weisen dieses Verhalten auf. 


Beispiel : 


/Iı 
= zschne { - n) 1237/|/; 


RECHNE 
/ 
/ RECHNE division overflow 


Wir sehen also, daß erst bei der zweiten Division der Fehler 
auftrat. Das ist auch logisch, denn 2 3 / ergibt 0. 
Sie sind sicher in der Lage, die Grundidee dieses zweiten 
Tracers zu verfeinern. Idsen wären z.B. : 


Ausgabe der Werte auf dem Stack bei Aufruf eines Wortes 


Die. Möglichkeit, Teile eines Tracelaufs komfortabel zu 
unterdrücken. 
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7.5) Dar Dekonpiler 





Ein Dekompiler gehört so zu sagan zum guten Ton swines FORTH- 
Systens, war er bisher doch die einzige Möglichkeit, wenigstens 
ungefähr den Aufbau eines Systems zu durchschauen. Bei ultra- 
FORTH-83 ist das anders, und zwar aus zwei Gründen: 


-) Sie haben sämtliche Quelltexte vorliegen, und es gibt 
die VIEW-Funktion. Letztere ist normalerweise sinn- 
voller als der beste Dekompiler, da kein Dekompiler in 
der Lage ist, z.B. Stackkomnentars zu rekonstruieren. 


-) Der Tracer ist beim Debugging sehr viel hilfreicher 
als ein Dekompiler, da er auch die Verarbeitung von 
Stackwerten erkennen läßt. Damit sind Fehler leicht 
aufzufinden. " 


Dennoch gibt ss natürlich auch im ultraFöRTHß3 Dekonpiler, 
und zwar sowohl einen vollautomatischen, der durch SEZ “nams> 
gestartet wird, als auch einen einfachen, von Hand zu 
bedienenden, der im folgenden näher beschrieben wird. Dieser 
manuelle Dekompiler erscheint uns wichtiger; er wird benutzt, 
wenn der erzeugte Code von selbstgeschriebenen Worten unter- 
aucht werden soll. In solchen Fällen ist ein Dekompiler 
sinnvoll; der automatische versagt jedoch meistens, da er nur 
Strukturen dekompilieren kann, für die er programmiert wurde. 
Der manuelle Dekompiler befindet sich, wie der Tracer, in 
Vokabular TOOLS. Folgende Worte stehen zur Verfügung. 


H (name) ( adär -- addr' ) 
druckt den Namen des bei addr kompilierten Wortes aus und 
setzt addr auf das nächste Wort. 


K (konstante) ( addr -- adär' ) 
wird nach LIT benutzt und druckt den Inhalt von addr als 


Zahl mus. Es wird also nicht versucht, den Inhalt, wie bei 
N, ala Forthwort zu interpretieren. 


5 (string) ( addr -- addr' ) 
wird nach (ABORT" ("* (." und allen anderen Worten 
benutzt, auf die ein String folgt. Der String wird 
ausgedruckt und addr entsprechend erhöht, sodaß sie hinter 
den String zeigt. 


c (character) { addr -- addr' ) 
druckt den Inhalt von addr als Ascii-Zeichen aus und geht 


ein Byte weiter. Damit kann nan eigene Datenstrukturen 
ansehen. 


B (branch) ( addr -- addr"' ) 
wird nach BRANCH oder ?BRANCH benutzt und druckt dan 
Inhalt einer Adresse als Sprungoffset und Sprungziel aus. 


D (dump) { adär n -— adde’ ) 
Dumped n Bytes. Wird benutzt, um selbstdefinierte Daten- 
strukturen anzusehen. (s.a. DUMP und LDUMP} 


ertänteruegn" 
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Sehen wir uns nun ein Beispiel zur Benutzung das Dekompilers 
an. Geban Sie bitte folgende Definition ein: 


: test (n-) 
12 = IF cr ." Die Zahl ist zwolf I" THEN : 


0 
Rufen Sie das Vokabular TOOLS - durch Nennen seines Namena auf 


und ermitteln Sie die Adresse dem ersten in TEST kompilierten 
Wortes: 


" test >body 


Jetzt können Sie TEST nach folgendem Muster dekompilieren 
30198: 6154 CLii ok 

30200: 12 , ak 

30201: _ #505_= ok 

203203; 7044 _ ?PBRANCH ok 

30205: 27_ 130232 ok 

30207; A68151 ER ok 

30209: 9391 (." ok 

30211: 20 Die Zahl ist z2wolf |! ok 
n 30232: 49356 UNNEST 

drop 


apbbubBnBH 


Die erste Adresse ist die, an der im Wort TEST die anderen 
Worte kompiliert sind. Die zweite ist jeweils dis Kompilations- 


adresse der Worte, danach folgen die sonstigen Ausgaben des 
Dekonpilers. 


Probleren Sie dieses Beispiel auch mit dem Tracer aus: 
20 trace' test 


und achten Sie auf die Unterschiede. Sie werden sehen, daß der 
Tracer aussagefähiger und dazu noch einfacher zu bedienen ist. 
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8) Anpassung des ultra-/ volksFORTH an andere Rechner 


Die Hardware-Voraussetzungen für die Anpassung an einen 
Rechner sind mindestens 24, besser noch 32 kBytes RAM. 


Das ultraFORTH8B3 besteht aus zwei Teilen: 


a) Einem Kern, der weitgehend rechnerunabhängig ist, aber 
prozessorspezifische Teile enthält. 
Dieser Kern enthält Stackmanipulatoren, Compiler umw. 
. Eine Teilmenge der Worte ist in Maschinensprache 
geschrieben. Ihre Größe ist von Rechner zu Rechner 
verschieden. Ist das ultraFORTH83 bereits auf einem 
Rechner (z.Zt. nur 6502) implementiert, so muß dieser 
Teil nur marginal geändert werden. 


b) Einam systemabhängigen Teil, der (weitgehend) in Forth 
selbst geschrieben werden kann. 
Er enthält Worte für Terminal- und 
Massenspeichersteuerung. Anhand des (564 wird weiter 
unten erklärt, welche Funktionen mindestens ausgeführt 
werden müssen. 


Vorgehensweise : 


-) Falls die Teile a) und b) geändert werden müssen, 30 
benötigen Bia einen Assembler, in Forth geschrieben, 
und die Minimalversion (minimaler Anteil von 
Maschinencode am Gesamtsystem) sowie Zugriff auf einen 
Rechner, auf dem das ultraFORTH läuft (C64). Schreiben 
Sis mir, falls Blo zo atwas planen : 
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-) Falls nur der Teil b) geändert werden muß, sollten Sie 
als "Eichnormal" und Kommunikationsmittel Zugriff auf 
einen CBß4 mit ultraFORTH haben. Gia können sich, wenn 
Sie gute Kenntnisse in Forth haben, selbst das 
ultraFORTB des C84 für Ihren Rechner umstricken. Für 
Fragen stehs ich natürlich zur Verfügung. 


Einfacher, sicherer, aber langwieriger ist folgendes 
Verfahren : 

Sie erstellen anhand der C84-Quelltexte den 
rechnerabhängigen Teil des ultraFORTHE für Ihren 
Rechner. Den Quelltext schicken Eie mir per 
6C64-Diskette (oder Modem). Ich sende Ihnen ein 
übersetztes und ggf. korrigiertes Forth-System auf 
derselben Diskette zurück. Dieses System spielen Sie 
dann vom C64 auf Ihren Rechner Über, testen und 
beseitigen Fehler. Daraus gewinnen Sie einen 
verbesserten Quelltext, den Sie mir schicken uaw. 
Nach einigen Iterationen dürften Sie ein sicher 
arbeitendes System besitzen. 


Warum sa kompliziert ? 
Ihr ultraFORTE wird mit einem "Metacompiler" erzeugt. 
Das geschieht auf dem C64. Dieser Metacompiler ist ein 
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ziemlich kompliziertes Programn, daß man, um es 
korrekt bedienen 2u können, am besten selbst schreibt. 
Außerdem verschenke ich solche Programme nicht 
besonders gern. 





Folgende Worte sind im Quelltext für das ultraFORTH auf dem 
C54 an andere Rechner anzupassen: 


C64KEY - liest ein Zeichen von der Tastatur ein. Bit B 
ist Null. Es wird gewartet, bis eine Taste gedrückt 
wurde. 


C64KEY? - Liefert wahr (-1 = $FFFF) ,„ falls eine Taste 
gedrückt wurde. Das Zeichen wird nicht gelesen, d.h. 
ein nachfolgendes (C64KEY liefert den Wert der 
gedrückten Taste. 


C64DECODE - kann unverändert übernommen werden. 

C64EXPECT - kann unverändert übernommen werden. 

C64EMIT - gibt ein Zeichen auf dem Bildschirm aus. 

CBACR - löst den Wagenrücklauf auf dem Bildschirm aus. 

C64DEL - kann anfangs durch NOOF ersetzt werden. Löscht 
das zuletzt gedruckte Zeichen und rückt den Cursor 


„rh links. 


C64PAGE - löscht den Bildschirm und positioniert den 
Cursor links oben in der Ecke. 


C64AT? - liefert Zeile und Spalte der Cursorposition. 
Position 0 O ist links oben in der Ecke. 


c64at - Positioniert den Cursor. Argumente sind Zeile und 
Spalte. 


C64TYPE - Kann durch folgenden Text ersetzt werden : 
c64type ( adr len -- ) bounds ?DO I c@ enit LOOP 


b/blk - bleibt unverändert. 


DRV? - liefert die Nummer des aktuellen 
Diskettenlaufwerks. Kann durch eine Konstante ersetzt 
werden. 
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DRVINIT - Initialisiert die Laufwerke nach dam Kaltstart. 


Meistens durch NOOP ersetzt. 


1541R/W - liest bzw. schreibt einen 1024 Bytes langen 


Speicherbereich. Parameter sind die Adrasas des 
Speicherbereiches, ein Flag, das angibt, ob gelesen 
oder geschrieben werden soll und die Blocknummer. Die 
Blocknummer ist eine Zahl, die angibt, der wievielte 
der 1024 Bytes langen Blöcke bearbeitet werden soll. 
Die ganme Diskette wird dabei in solche Blöcke 
eingeteilt. 

Um später Files bearbeiten zu können, gibt sa auch 
einen noch unbenutzten File-Parameter. 

Dieses Wort kann, wenn die anderen Worte 
funktionieren, interaktiv von der Tastatur aus 
eingegeben werden. Dafür ist es sinnvoll, eine 
Diskette im Speicher zu simulieren. Den betreffenden 
Speicherbereich, in dem die Simulation stattfindet, 
kann man dann mit dem Betriebssystem das Rechners auf 
Diskette speichern. 
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Notation 


Die Worte des ultraFORTH8B3 sind in Wortgruppen 
zusammengefasst. Die Worte jeder Sachgruppe sind alphabetisch 
sortiert. Die Wortgruppen sind nicht geordnet. . 


Worte werden in der in Kapitel 1 angegeben Schreibweise 
aufgefuehrt. Wortnamen im Text werden gross geschrieben. 


Die Wirkung des Wortes auf den Stack wird in Klammern 
angegeben und zwar in folgender Form: 


( vorher -- nachher ) 


vorher : Werte auf dem Stack vor Ausfuehrung des Wortes 
nachher : Werte auf dem Stack nach Ausfuehrung des Wortes 


In dieser Notation wird das oberste Element des Stacks immer 
ganz rechts geschrieben. Sofern nicht anders angegeben, 
beziehen sich alle Stacknotationen auf die spaetere 
Ausfuehrung daa Wortes. Bei immediate Worten wird auch die - 
Auswirkung das Wortes auf dan Stack waehrend der Kompilierung 
angegeben. 3 


Worte werden ferner durch folgende Symbole gekennzeichnet: 


c 


Dieses Wort kann nur waehrend der Kompilation einer 
‚-Definition benutzt werden. 


Dieses Wort ist ein immediate Wort, das auch im 
kompilierenden Zustand ausgefuehrt wird. 


83 


Dieses Wort wird im 83-Standard definiert und muss auf 
alien Standardsystemen aequivalent funktionieren. 


Kennzeichnet eine Uservariable. Wird aufgrund eines 
Missverstaendnisses nicht konsequent verwendet. 


Weicht dis Aussprache eines Wortes von der natuerlichen 
englischen Aussprache ab, so wird sie in Anfuehrungszeichen 
angegeben. Gelegentlich folgt auch eine deutsche Debersetzung. 


Die Hanan der Stackparamater folgen, sofern nicht suggestive 

Bezeichnungen gewaehlt wurden, dem nachstehendem Schema. Die 

Bezeichnungen koennen mit einer nachfolgenden Ziffer versehen 
sein. 
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Stack-Zahlentyp Wertebereich minimale 
not. in Dezimal Feldbreite 
flag logischer Wert O=falsch, sonst=true 16 Bit 
true logischer Wert -1 (als Ergebnis) 16 
falselogischer Wert 0 18 
b Bit 0..1 1 
char Zeichen 0..127 (0..256) 7 
8b B beliebige Bits nicht anwendbar 8 
16b 16 beliebige Bits nicht anwendbar 16 
n Zahl, bewertete Bits-32768..32767 16 
+n positive Zahl 0..9327867 16 
u vorzeichenlose Zahl 0. .65535 18 
w Zahl, n oder u -32768..85535 16 
addr Adresse, wie u 0..85535 16 
32b 32 beliebige Bits nicht anwendbar 32 
d doppelt genaue Zahl -2,147,483,648... 
2,147,483,647 32 
+d pos. doppelte Zahl 0..2,147,483,847 32 
ud vorzeichenlose 
doppelt genaue Zahl 0..4,294,967,295 32 


sySs 0, 1 oder mehr System- 
abhaengige Werte nicht anwendbar na 
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Arichmetik 
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*/mod 


-1 


/mod 


(ww2-w3) 83 
"mal", engl."times" 
Der Werte wl wird mit w2 multipliziert. w3 sind die niederwertigen 
16 Bits des Produktes. Ein Ueberlauf wird nicht angezeigt. 


(nin2n3--n4) 83 
"mal-durch", engl."times-divide" 
Zuerst wird nl mit n2 multipliziert und ein 32-bit Zwischenergebnis 
erzeugt, n4 ist der Quotient aus dem 32-bit-Zwischenergebnis und 
dem Divisor n3. Das Produkt von nl] mal n2 wird als 32-bit 
Zwischenergebnis dargestellt, um eine groessere Genauigkeit 
gegenueber dem sonst gleichwertigen Ausdruck ni n2 * n3 / zu 
erhalten. Eine Fehlerbedingung besteht, wenn der Divisor Null ist, 
oder der Quotient ausserhalb des Intervalls (-32768 .. 32767)' 
liegt. 


(nin2n3-- na n5) B3 
"mal-durch-mod" ‚engl. "times-divide-mod" 
Zuerst wird nl mit n2 multipliziert und ein 32-bit Zwischenergebnis 
erzeugt. n4 ist der Rest und n5 der Quotient aus dem 32-bit- 
Zwischenergebnis und dem Divisor n3, n4 hat das gleiche Vorzeichen 
wie n3 oder ist Null. Das Produkt von nl nal n2 wird als 32-bit 
Zwischenergebnis dargestellt, um eine groessere Genauigkeit 
gezenueber dem aonst gleichwertigen Ausdruck ni n2 * n3 /nod zu 
erhalten. Eine Fehlerbedingung besteht, wenn der Divisor Null ist, 
oder der Quotient ausserhalb des Intervalls (-32768..32767) liegt. 


(wi w2 -- w3) 83 
"plus" | 
wl und w2 addiert ergibt w3. 


(ww— w3) 83 
"minus" 
w2 von wl subtrahiert ergibt w3 . 


(—--) 
Oft benutzte Zahlenwerte wurden zu Konstanten gemacht. Definiert in 
der Fom: 
n CONSTANT n 
Dadurch wird Speicherplatz eingespart und die Ausfuehrungszeit 
verkuerzt. Siehe auch CONSTANT . 


(nin—n3) 83 
"durch" ,engl."divide" 
n3 ist der Quotient aua der Division ron nl durch den Divisor n2. 
Eine Fehlerbedingung besteht, wenn der Divisor Null ist oder der 
Quotient ausserhalb des Intervalls (-32768 .. 32767) liegt. 


(nln—-n3n) 58 
"durch-mod", engl."divide-mod" 
n3 ist der Rest und n4 der ganzzahlige Quotient aus der Division 
von nl durch den Divisor n2. n3 hat das selbe Vorzeichen wie n2 
oder ist Null. Eine Fehlerbedingung besteht, wenn der Divisor Null 
ist oder der Quotient ausserhalb des Intervalls (-32768 .. 32767) 
liegt. 
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0 (-0) 
Siehe -1 u 
1 (—1) 
Siehe -]1 . 
l+ (wW— uw) 83 


"eins-plus", engl."one-plus" 
w2 ist das Ergebnis von Eins plus wl. Die Operation 1 + wirkt 
genauso. 


l- (w — uw) 83 
“eins-minus", engl."one-minua" 
w2 ist das Ergebnis von Eins minus wl, Die Operation 1 - wirkt 
genauso " E 


2 (-—-2) 
Siehe = 1 m 


2% (ww) 
"zwei-mal", eng.1"two-times" 
wl wird um ein Bit nach Links verschoben und das ergibt w2. In das 
niederwertigste Bit wird eine Null geschrieben. Die Operation 2 * 
wirkt genauso. 


2+ (vw -- u) 
"zwei-plus", engl."two-plus" 
w2 ist des Ergebnis von Zwei plus wl. Die Operation 2 + wirkt 
genauso. 


2- (wl-- w2) 83 
"zwei-minus”, engl."two-minus" 
w2 ist des Ergebnis ron Zwei minus wl. Die Operation 2 - wirkt 
genauso, 


2/ (ni-n2) 83 
"zwei-durch", engl."two-divide" 
nl wird um ein Bit nach rechts verschoben und das ergibt n2 „ Daa 
Vorzeichen wird beruecksichtigt und bleibt unveraendert. Die 
Operation 2 / wirkt genauso. 


3 (—-3) 
Siehe -1 ® ’ 


3+ («Ww—w2) 
"drei-plus", engl."three-plus" 
v2 ist das Ergebnis won Drei plus wi. Die Operation 3 + wirkt 
genauso. 


4 (—4) 
Siehe -1 “ 


abs (n—-u) 23 
"absolut", engl."absolute" 
u ist der Betrag von n .„ Wenn n gleich -32768 ist, hat u den selben 
Wert wie n. Vergleiche auch "Arithmetik, Zweierkomplement", 


mar (niln2-—-n3) 83 
"maximum" 
n3 ist der Groessere der beiden Werte nl und n2. Benutzt die > 
Operation. Die groesste Zahl fuer nl oder n2 ist 32767. 
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pin 


mod 


negate 


u/mod 


rar 


unin 
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(niln2—n3) 83 
"minimum" 
n3 ist der Kleinere der beiden Werte nl und n2. Benutzt die < 
Operation. Die kleinste Zahl fuer nl oder n2 ist -32768. 


(nln2-- n3) 83 
"mod "1 
n3 ist der Rest der Division von ni durch den Divisor n2. n3 hat 
dasselbe Vorzeichen wie n2 oder ist Null. Eine Fehlerbedingung 
besteht wenn der Divisor Null ist oder der Quotient ausserhalb des 
Intervals (-32768 .. 32767) liegt. 


(nl --n2) 83 
n2 hat den gleichen Betrag, aber das umgekehrte Vorzeichen von nl. 
n2 ist gleich der Differenz von Null minus nl. 


( ul u2 - u3 us ) 
"u-durch-mod", engl."u-divide-nod" 
u3 ist der Rest und u4 der (Auotient aus der Division 
von ul durch den Divisor u2. Die Zahlen u sind vorzeichenlose 16-Bit- 


Zahlen (unsigned integer). Eine Fehlerbedingung besteht, wenn der Divisor 
Null ist. 


(ulu2 — u) 
"maximum" 
u3 ist der Croessere der beiden Werte ul und u2. Benutzt die u> 
Operation. Die groesste Zahl fuer nl oder n2 ist 65535. 


(ulu2 — u3 ) 
"u-minimum” 
u3 ist der Kleinere der beiden Werte ul und u2, Benutzt die u< 
Operation. Die kleinste Zahl fuer nl oder n2 ist 0. 
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Logik und Vergleiche 





0< (n- flag ) 83 
"null-kleiner", engl."zero-less" 
Wenn n kleiner als Null (negativ) ist, ist flag wahr. Dies ist 
immer dann der Fall, wenn das hoechstwertigste Bit gesetzt ist. 
Deswegen kann dieser Operator zu Test dieses Bits benutzt werden. 


0%> (n-— flag ) 
Wenn n verschieden von Null isc, ist flag wahr. 


0a (w-- flag ) 83 
"null-gleich", engl."zero-equals" 
Wenn w gleich Null ist, ist flag wahr. 


0> (n-- fla ) 83 
"null-groesser", engl."zero-greater" 
Wenn n groesser als Null ist, ist flag wahr. 


< (nin2 — flag) 8 
"kleiner-als", engl."less-than" 
wenn nl kleiner als n2 ist, ist flag wahr. 
Z.B. -32768 32767 < ist wahr. 
-32768 O« ist wahr. 


m (wWw2 -- flag) 83 
"gleich", engl."equals" 
Wenn wl gleich w2 ist, ist flag wahr. 


> (nIin— flag) 8 
"groesser-als", engl."greater-than" 
Wenn nl groesser als n2 ist, ist flag wahr, 
2.B. -32768 32767 > ist falsch. 
-32768 > ist falsch. 


anıl (niln2-n3) 83 
nl wird mit n2 bitweise logisch UND verknuepft und das ergibt n3 


case? ( 16bl 16b2 — 16bl false ) 
oder ( 16bl 16b2 — true 
"case-frage", engl."case-question" 
Vergleicht die beiden obersten Werte auf dem Stack. Sind sie 
gleich, verbleibt TRUE auf dem Stack. Sind sie verschieden, 
verbleibt FALSE und der darunterliegende Wert 16bl auf dem Stack. 
Wird zB. benutzt in der Form: 
KEY ASCII A CASE? IF „.. EXIT THEN 
ASCII B CASE? IF „.. EXIT THEH 
DROP 
Entspricht dem Ausdruck OVER = DUP IF NIP THEN. 
false (--0) 
Hinterlaesst Null als Zeichen fuer logisch-falsch auf dem Stack. 


not (nl—n2) 83 - 
Jedes Bit von nl wird einzeln invertiert und das ergibt n2. 


or (nln2—n3) 83 
nl wird mit n2 bitweise logisch ODER verknuepft und das erribt n?. 
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true 


ud 


u> 


uwithin 


zor 


(—--l) 
NHinterlaesst -1 als Zeichen fuer logisch-wahr auf dem Stack. 


( ul u2 — flag ) 83 
"u-kleiner-als", engl."u-less-than" 
Wenn ul kleiner als u2 ist, ist flag wahr, Die Zahlen u sind 
vorzeichenlose 16-Bit-Zahlen. Wenn Adressen verglichen werden 
sollen, muss U< benutzt werden. Sonst passieren oberhalb von 32K 
eigenartige Dingel 


(ul u2 - flag ) 
"u=groesser-als", engl."u-greater-than" 
Wenn ul groesser als u2 ist, ist flag wahr, sonst gilt das gleiche 
wie fuer. X. 


(nulu2 — flag ) 
"u-within" 
Wenn ul kleiner oder nleich n ist und n kleiner u2 ist (ul<=n<u2), 
ist flag wahr. Benutzt Jie U< Operation. 


(nin2-n3) B3 
Nor" 


nl wird mit n2 bitweise logisch EXCLUSIV ODER verknuepft und ergibt 
n3. 
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Speicheroperationen 





! ( 16b adr -- ) 83 
"store" 
16b werden in den Speicher auf die Adresse adr geschrieben. 
In 8-bitweise adressierten Speichern werden die zwei Bytes adr und 
adr+l mit dem Wert 16b ueberschrieben. Der 6502 verlangt, das vom 
16b Wert die niederwertigen &b nach adr und die hoeerwertigen 8b 
nach adr+l geschrieben werden (lowbyte-highbyte-order). 


+! (wladr — ) 83 
"nlus-store" 
wi wird zu dem Wert w in der Adresse adr addiert. Benutzt die + 
Operation. Die Summe wird in den Speicher in die Adresse adr 
seschrieben. Der alte Speicherinhalt wird ueberschrieben. 


er ( adr — 1l6b ) 83 
"fetch” 
Von der Adresse adr wird der Wert 16b aus dem Speicher geholt. 
Dabei werden beim 6502 die niederwertigen Bb von adr und die 
hoeerwertigen 8b von adr+l geholt und als 16b auf den Stack gelegt. 

e! ( 16b adr — ) 83 
"c-store" 
Von l16b werden die niederwertigen St in den Speicher in die 
Adresse adr zeschrieben. 

co ( adr — &h ) 83 
Ne=-fetch! 
Von der Adresse adr wird der Wert Bb aus dem Speicher geholt. 

cnove ( adrl adr2 u-— ) 33 
"c-mova" 
Beginnend bei adrl werden u Bytes zur adr2 kopiert. Zuerst wird das 
Byte vom adrl nach adr2 bewegt und dann aufsteigend fortgefahren. 
Wenn u "Null ist, wird nichts kopiert. 

cmove> ( adrl adr2 u -— ) 83 
"c-move-rauf", engl."c-move-up" 
Beginnend bei adr] werden u Bytes zur adr2 kopiert. Zuerst wird das 
Byte von adri-pius-u-minus-] nach adr2-plus-u-minus-1 bewegt und 
dann absteigend fortgefahren. Wenn u Null ist, wird nichts kopiert. 
Das Wort wird benutzt um Speicherinhalte auf hoehere Addressen zu 
verschieben wenn die Speicherbereiche sich uweberlappen. 

count ( adril -- adr2 +n ) 83 
adr2 ist adrl+l und +n ist dic laenge des String. Das Byte mit der 
Adresse adrl enthaelt die kacnge des String angegeben in Bytes. Die 
eichen des Strings beginnen bei der Adresse ndr+l. Die Laenge +n 
eines Strings darf im 3creich (DO .„. 255) liegen. Vergleiche auch 
"String, counted", 

ctoggle ( 8b adr -—- ) 


"e-toggle" 

Fuer jedes gesetzte Bit in 85 wird im Byte mit der Adresse adr das 
entsprechende Bit invertiert (dh. ein zuvor gesetztes Bit ist 
danach ncloescht und cin zuvor geloeschtes Bit ist danach gesetzt). 
Fuer alle geloeschten Bits in n bleiben die entsprechenden Bits im 


Byte mit der Adresse adr unveranndert. Der Ausdruck DUP CR ROT XOR 
SWAP C! wirkt aenauso,. 
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erase (adcru— ) 


Von adr an werden u Bytes des Speichers mit $00 ueberschrieben. Hat 
u den Wert Null, passiert nichts. 
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fıll : ( adr u 8b -- ) 
Von adr an werden u Bytes des Speichers mit Sb beschrieben, llat u 
den Wert Null, passiert nichts. 


move ( adrl adr2 u -- ) 
Beginnend bei adrl werden u Bytes nach adr2 bewegt. Dabei ist es 
ohne Bedeutung, ob ucberlappende Speicherbereiche aufuscrts oder 
abwaerts kopiert werden, weil MOVE die passende Routine dazu 
auswaehlt. Hat u den Wert Null, passiert nichts, Siehe auch CHOVE 
und CMOVE> a ı 


off ( adr — ) 
Schreibt der Wert FALSE in den Speicher mit der Adresse adr. 


on (adr -—) 
Schreibt der Wert TRUE in den Speicher mit der Adresse adr. 


pad ( -—- adr ) 83 
adr ist die Startaddresse einer "scratch arca". In diesen 
Speicherbereich koennen Daten fuer Zwischenrechnungen abgelegt 
werden. Wenn die naechste verfuegbare Stelle fuer das Dictionary 
veraendert wird, aendert sich auch die Startadresse von pad. Die 
vorherige Startadresse van pad geht ebenao wie die Daten dort 
verloren. pad erstreckt sich bis zum obersten Wert dea Datenstack. 


place ( adrl +n adr2 — ) 
Bewegt +n Bytes van der Adresse adrl zur Adresse adr?2+1 und 
schreibt +n in die Speicherstelle mit der Adresse adr2. \!ird in der 
Regel benutzt um Text einer bestimmten Laenge als Counted String 
En, adr2 darf gleich, groesser und auch kleiner als adrl 
sein. 


wer } 





32-Bit-Worte 


dO= (d-- flag ) 83 
"d=null-gleich", engl."d-zero-equals" 
Wenn d gleich Null ist, wird flag wahr. 


d+ (dl d2-- d3) 83 
"d-plus" 
dl und d2 addiert ergibt d3. 


d< (did2 — fla ) B3 
"d-kleiner-als”, engl."d-less-than" 
Wenn di kleiner als d2 ist, wird flag wahr. Benutzt die < 
Operation, jedoch fuer 32bit Vergleiche. 


dabs (d-- ud ) 83 
"d-absolut" 


ud ist der Betrag von d. Wenn d gleich -2.147.483.648 ist, hat ud 
den selben lert wie d. 


dnegate 
(di -—-d2) 53 
"d-negate" 
d2 hat den gleichen Betrag, aber ein anderes Vorzeichen als dl. 
extend (n—-d) 
Der !!ert n wird auf den doppelt genauen Wert d vorzeichenrichtig 
erweitert. 
m* (nln-d) 
"m-nal", en2l."m-times" 
Der Wert nl wird mit n2 multipliziert. d ist das doppeltgenaue 
vorzeichenrichtige Produkt. 
m/mod (dnli—n2n3) 
'"m-durch-mod", engl."m-divide-mod" 
n2 ist der Rest und n3 der Quotient aus der Division der 
doppeltgenauen Zahl d durch den Divisor ni. Der Rest n2 hat 
dasselbe Vorzeichen wie d oder ist Null. Eine Fehlerbedingung 
besteht, wenn der Divisor Null ist oder der Quotient ausserhalb des 
Intervalls (-32768 .. 32767) liegt. 
ud/mod ( udl ul -- u2 ud2 ) 
"u-d-durch-mod", engl."u-d-divide-mod" 
u2 ist der Rest und ud2 der doppeltgenaue Quotient aus der Division 
der doppeltgenauen Zahl udl durch den Divisor ul. Me Zahlen u sind 
vorzeichenlose 16-Rit-Zahlen (unsigned integer). Eine 
Fehlerbedingung besteht, wenn der Divisor Null ist, 
um* ( ul u2 — ud ) 33 


"u-n-nmal", engl."u-m-times" 

Die Werte ul und u2 werden multipliziert und als doppeltgenauer 
Wert d abgelegt. UM*® ist die anderen multiplizierenden Worten 
zugrundelicgende Routine. Die Zahlen u sind vorzeichenlose Zahlen. 
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um/ınad 


(ud ul — u2 u3 ) 33 
"u-m-durch-mod", engl."u-m-divide-moc”" 
u2 ist der Rest und u3 der Quotient aus der Division von ud durch 
den Divisor ul. Die Zahlen u sind vorzeichenlosce Zahlen. Einc 
Fehlerbedingung besteht, wenn der Divisor -ull ist oder der 
Quotient ausserhalb des Intervalls (0 .. .65535) licogt. 
UM/MOD ist die allen anderen diväidierenden !lorten zusrundelierende 
Routine. Die Fehlermeldung "division overflow" “ird aus:cneben, 
wenn der Divisor Null ist. 
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Stack 

-roll ( 16bn...16bl 1660 +n — 16b0O 16bn...16bl ) 
"minus-roll" 
Das oberste Glied einer Kette von n Werten wird an die nte Position 
gerollt. Dabei wird +n selbst nicht mitgezaehlt. 2 -ROLL wirkt wie 
-ROl. O -ROLL veraendert nichts. 

-rot ( 15bl 1662 1663 —- 16563 16bl 16b2 ) 


"ninus-rot" 
Die drei obersten 16b Werte werden rotiert, sodass der oberste Wert 
zum Untersten wird. Hebt ROT auf. 


.s (-.) 
"punkt-8", engl."dor-s" 
Cibt alle l!erte die auf dam Stack liegen aus, ohne den Stack zu 
veracndern. Oft benutzt um neue Worte auszutesten,. Die Ausgabe der 
Werte erfolgt won links nach rechts, der oberste Stackwert zuerst. 


2dup ( 32h -- 32b 32b ) 83 
"zwei-dup", engl."two-dup" 
Der Wert 32b wird dupliziert. 


2drop ( 32b -- ) 33 
"two-drop" 
Der Wert 32b wird fallengelassen, dh. die beiden obersten Werte 
werden von Stack entfernt. 


2swap ( 32bl 32b2 — 3262 32bl ) 83 
"zwei-swap", engl."two-swap" 
Die beiden obersten 32b Werte werden vertauscht. 


un ( l\6b — 16b 16b } 
oder (O—DO 
"fragez:.ichen-dup", engl."question-dup" 
Nur wenn der Wert 16b verschieden von Null ist, wird er verdoppelt. 


clearstack { -- empty ) 
Loescht den Datastack, indem die Stack-Startadresse aus der 


Uservariablen SO in den Datastackzeiger (stackpointer) geschrieben 
wird. 


depth (—n) 
n ist die Anzahl der Werte die auf dem Stack lagen, bevor DEPTH 
ausgefuehrt wurde. 


drop ( 16b — ) 83 
Der \!ert l6b wird fallengelassen, dh. der oberste Wert wird vom 
Stack entfernt. Siehe auch 2DROP, 





dup 


nip 


yuast' 


pick 


roll 


rot 


Bü 


swap 


sp! 


spe 


under 


| ultrafDRTNBT 





ikea 1985 vofhasrefar 


4 Glossare 
( 16b -—- 16b 16b ) 83 


Der Wert 16b wird verdoppelt. Siehe auch 2DUP. 


( 16bl 16b2 — 16b2 ) 
Der zweite Wert wird vom Stsck entfernt, 16b2 ist der oberste und 
16bl der zweite Wert auf dem Stack. 


( 16b1 1662 -- 16bl 16b2 16bl ) 33 
Der Wert 16bl wird ueber 16b2 herueber kopiert. 


Der +nte Wert im Stack wird oben auf den Stack kopiert, Dabei wird 
+n selbst nicht mitgezaehit. O PICK wirkt wie DUP. 1 PICK wirkt wie 
OVER. 


( 15bn 16bm..16b0 +n -- 16bm..16b0 16bn ) 83 
Das +nte Glied einer Kette von n Werten wird nach oben auf den 
Stack gerollt. Dabei wird +n sclbst nicht mitgezaehlt. 


( 16bl 16b2 1663 — 15b2 1663 1661 ) 893 
Die drei obersten l&b Werte werden rotiert, sonassa Jer unterste zum 
obersten wird. 


(— adr ) 
adr ist die Adresse einer Uservariablen, in der dic Startadresse 
des Datastack steht. der Ausdruck SC ? SP! wirkt wie CLEARSTACX und 
leert den Stack. 


( 16b1 1652 -- 1662 !6bl ) 553 
Die beiden obersten 16b-Werte werden vertauscht. 


(ad —) 
"s-p-store" 
Setzt den Datastackzeiger (engl."stack pointer") auf die Adresse 
adr. Der oberste Wert im Datastack ist nun der, welcher in der 
Speicherstelle bei adr steht. 


{ — adr ) 
"s-p-£etch" 
Holt die Adresse adr aus dem Datastackzeiger. Der oberste ‘\ert in 
Stack stand in der Speicherstelle bei edr, bevor SP. ausgefuehrt 
wurde. Der Ausdruck SP@ Q wirkt wie DUP. 


( 16bl 15b2 — 16b2 1661 16b2 ) s 
Eine Kopie des obersten !iertes auf dem Stack wird unter den zweiten 
Wert eingefuegt. Der Ausdruck St!AP OVER wirkt genauso. 
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Returnstack 


>r ( 16b -— ) C,83 
"auf-r", engl."to-r" 
Der Wert 16b wird auf den Returnstack gelegt. Siehe auch R> . 


push ( adr — ) 
Der Inhalt aus der Adresse adr wird auf dem Returnstack bis zum 
naechsten EXIT verwahrt und sodann nach adr zurueck geschrieben. 
Dies ermoeglicht die lokale Verwendung von Variablen innerhalb 
einer :-Definition. Wird zB. benutzt in der Form: 
ı WORT „.. BASE PUSH HEX ... ; 
Hier wird innerhalb von WORT in der Zahlenbasis HRX gearbeitet, zB. 
um ein Speicherbereich auszugeben (llex-Dump). Das Wort ; fuehrt 
EXIT aus, Nachdem WORT ausgefuehrt worden ist, besteht die gleiche 
Zahlenbasis wie vorher. 


"r-von", engl."r-£rom” 
Der Wert 16b wird won dem Returnstack geholt. Siehe auch >R . 


rp! ( adr — ) 
!r-p-store" 
Setzt den Returnstackzeiger (engl."return stack pointer") auf die 
Adresse adr. Der oberste Wert im Returnstack ist nun der, welcher 
in der Speicherstelle bei adr steht. 


r0 ( — adr ) 
adr ist die Adresse einer Uservariablen, in der die Startadresse 
des Returnstack steht. 


r@ ( —— 16b ) C,83 
"r-fetch" 
Der Wert 15b ist eine Kopie des obersten Wertes im Returnstack. 


rdepth (-n) 

"r-depth" 

n ist die Anzahl der Werte die auf dem Returnstack liegen. 
rdrop (—-) Ö 

"r=drop" 


Der Wert 16b wird vom Returnstack fallengelassen, dh. der oberste 


Wert wird vom Returnstack entfernt. Der Datenstack wird nicht 
veraendert. 


rp@ ( — adr ) 
"r=p-fetch" 
Holt die Adresse adr aus den Returnstackzeiger. Der oberste ‘Vert im 
Returnstack steht in der Speicherstelle bei adr. re 





Strings 


es 


/strina 


( -— adr ) CI 

( text ( -- ) compiling 
"string" 
Liest den Text bis zum naechsten " und legt ihn als Counted 
String im Dictionary ab. Kann nur bei der Kompilation verwendet 
werden. Zur Laufzeit wird Startadresse des Counted String auf den 
Stack gelegt. Benutzt in der Form: 
! <name> Da = KERRED au 


( +dl — +d2 ) 83 
(1), engl."sharp"; 
Der Rest von +dl geteilt durch den Wert in BASE wird in ein ASCIT 
Zeichen umgewandelt und dem Ausgabestring in Richtung absteigender 
Addressen hinzugefuegt. +d2 ist der Quotient und verbleibt auf dem 
Stack zur weiteren Bearbeitung. Ueblicherweise benutzt zwischen <# 
und !> . 
( (1) Bisher gibt em keine verbindliche deutsche Aussprache. Das 
Zeichen wird in der Notenschrift verwendet und dort in engl."sharp" 
und in deutsch "kreutz" ausgesprochen, # wird auch oft statt Nr. 
verwendet; zB. SCR# ) 


( 32b — oadr +ın) 853 
"sharp-zreater" 
Am Ende der strukturierten Zahlenausgebe wird der 32b Wert vom 
Stack entfernt. Hinterlegt werden die Adresse das erzeugten 
Ausgabestrings und +n als die Anzahl Zeichen im Ausgabestring, 
passend fuer TYPE. 


(+4 —-00) 83 
"sharp-s'" 
+d wird umgewandelt bis der Quotient zu Null geworden ist. Siehe 
auch © . Dabei wird jedes Zwischenergebnis in ein Ascii-Zeichen 
umgewandelt und dem String fuer die strukturierte Zahlenausgabe 
angefuegt. Wenn die Zahl van vorn herein den Wert Null hatte, wird 
eine einzelne Null in den String gegeben. Wird ueblicherweise 
benutzt zwischen <f und #> . 


( adri nin2 — adr!2 n] ) 
n2 ist cin Index, welcher in den String weist, der im Speicher bei 
der Adresse adr! beginnt. Der String hat die Laenge nl. n3 ist 
aleich nl-minus-n2, wenn n2 kleiner als nl ist, und ad2 ist dann 
adrl-plus-n2. n3 ist gleich Null, wenn n2 groesser oder gleich nl 
ist, und adr? ist dann adri-plus-nl. Der Vergleich benutzt die 
‘peration U< „ Wird zB. benutzt, um die vorderen n Zeichen eines 
String abzusclhneiden. 


(=) 33 
"less-sharp" 
Leitet die strukturierte Zahlenausgabe ein. Um eine doppelt genaue 
Zahl in einen von rechts nach links aufaebauten Ascii-String 
umzuwandeln, benutze man die llortc: 
1 > #s <# NOLD SIGN 
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accumulate ( +dl adr char — +42 adr ) 

Dient der Umwandlung von Ziffern in Zahlen. Multipliziert die Zahl 
+dl mit BASE, um ste eine Stelle in der aktuellen Zahlenbasis nach 
links zu ruecken, und addiert den Zahlenwert von char dazu. char 
stellt eine Ziffer dar. adr wird nicht veraendert. Wird zB. in 
CONVERT benutzt. +n muss eine in der Zahlenbasis BASE gueltige 
Ziffer darstellen. 


capital 


( charl — char2 ) 
Die Zeichen im Bereich von a bis z werden in die Grossbuchstaben A 
bis Z umgewandelt. Andere Zeichen werden nicht veraendert, 


capitalize ( adr -- adr ) 


convert 


digit? 


hold 


Wandelt alle Klein-Buchstaben im Counted String bei der. Adresse adr 
in Gross-Buchstaben um, adr wird nicht veraendert. Siehe auch 
CAPITAL. 


( +dl adr1 — +d2 adr2 ) 53 
Wandelt den Ascii-Text ab adrl+l in eine Zahl mit der Zahlenbasis 
BASE um. Der entstehende Wert wird in dl akkumuliert und als 0? 
hinterlassen. adr2 ist die Adresse des ersten nicht umwandelbaren 
Zeichens im Text. 


( char — digit true ) 

oder ( char -- false ) 
Prueft mit BASE ob das Zeichen char eine gueltige Ziffer ist. Ist 
diese wahr, wird der Zahlenwert der Ziffer und TRUE auf den Stack 


‚hinterlegt. Ist char keine gueltige Ziffer, wird FALSE hinterlest. 


( char -—- ) 53 
Das Zeichen char wird in den bildhaften Ausgabastring eingefuegt. 
Veblicherweise benutzt zwischen <# und #> . 


nullstring? ( adr -- adr false ) 


number 


oder ( adr -- true ) 
Prueft, ob der Counted String bei der Adresse adr ein String der 
Laenge Null ist. Wenn.dies der Fall ist, wird TRUE hinterlest. 
Sonst bleibt adr erhalten und FALSE wird obenauf gelegt. 


(adr—d) 
Wandelt den Counted String mit der Adresse adr in die Zahl d un. 
Die Umwandlung erfolgt entsprechend der Zahlenbasis in BASE. Sine 
Fehlerbedingung besteht, wenn die Ziffern des String nicht in eine 
Zahl verwandelt werden koennen. 
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number? 


scan 


sign 


skip 





(adr — d >) 

oder ( adr - n $<) 

oder ( adr — adr false ) 
Yandelt den Counted String mit der Adresse adr in die Zahl n um. 
Die Umwandlung erfolgt entsprechend der Zahlenbasis in BASE oder 
wird vom ersten Zeichen im String bestimmt. Enthaelt der String 
zwischen den Ziffern auch Ascii-Zeichen fuer Kosma oder Punkt, mo 
wird er als doppelt-genaue Zahl d interpretiert. Sonst wird der 
String in eine einfach-genaue Zahl n umgewandelt. Wenn die Ziffern 
des String nicht in eine Zahl verwandelt werden koennen, bleibt die 
Adresse des String erhalten und der Wert £uer logisch-falsch wird 
auf den Stack gelegt. Die Zeichen, die zur Bestimmung der 
Zahlenbasis dam Ziffernstring vorangestellt werden koennen, sind? 
% (Basis 2 "binaer") 
ä (Basis 10 "decimal") 
$ (Basis 16 "hexadecimal") 
h (Basis 16 "hexadecimal") 
Der tert in BASE wird dadurch nicht veraendert. 


( adri nl char — adr? n2 ) 
Der String mit der Laenge nl, der im Speicher ab Adresse adrl 
steht, wird nach dem Zeichen char durchsucht, adr2 ist die Adresse, 
bei der das Zeichen char gefunden wurde. n2 ist die Laenge des 
verbleibenden String. Wird char nicht gefunden, ist adr2 die 
Adresse des ersten Zeichen hinter dem String und n2 ist Null. 


(n—) 83 
Wenn n negativ ist, wird ein Minuszeichen in den bildhaften 
Ausgabestring eingefuepgt. Wird ueblicherweise benutzt zwischen <# 
und #> „ 


( adrl nl char — adr?2 n2 ) 
Der String mit der Laenge nl, der im Speicher ab Adresse adrl 
steht, wird nach. den ersten Zeichen, das verschieden von char ist, 
durchsucht, adr2 ist die Adresse dieses Zeichens, n2 ist die Laenge 
des verbleibenden String. Besteht der gesammte String aus den 
Zeichen char, ist adr2 die Adresse des ersten Zeichen hinter dem 
String und n2 ist Null. 
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Datentypen 
( -- ss ) 83 "colon" 

ein defintäriiten Wort, das in der Form: 
: <nane> 2 


benutzt wird. Es erseugt die Wortdefinition fuer 
<name> im Kompilations- Vokabular und schaltet den 
Kompiler an. Das erste Vokabular in der Suchreihen- 
folge wird durch das Kompilations- Vokabular er- 
setzt. Das Kompilations- Vokabular wird nicht ge- 
aendert. Der Quelltext wird anschliessend kompi- 
liert. <name> wird eine "colon-definition"” oder 
eine ":-Definition" genannt. Die neus Wortdefini- 
tion fuer “name> kann solange nicht im Dictionary 
gefunden werden, bis das zugehoerige ; oder ‚ CODE 
erfolgreich ausgefusehrt wurde. 


Bine Fehlerbedingung liegt vor, wenn ein Wort 
nicht gefunden und nicht in eine Zahl gewandelt 
werden kann oder wenn, waehrend der Kompilation 
vom Massenspeicher, der Quelltext erschoepft ist, 
bevor ; oder ;CODE erreicht werden. sys wird vom 
zugehoerigen ; abgebaut. 


(—-) 83 I C "semi-colon" 

{says --) eompiling 
baakdat die Kompilation einer :-Definition; macht 
den Namen <nane> dieser :-Definition im Dictionary 
auffindbar, schaltet den Interpreter ein und kompi- 
liert ein EXIT. Die Etackparaneter sya, die von : 
hinterlassen wurden, werden geprueft und abgebaut. 
Biehe : und EXIT . 


( cofa -- ) 
sin definierendes Wort, das typisch in der Form: 

’ «namaxz> Alias <name> , 
benutzt wird. ALIAS erzeugt einen Kopf fuer “name> 
im Diotionary. Wird <name> aufgerufen, so verhaelt 
ea sich wie <namex>. Insbesondere wird beim Kompi- 
lieren nicht <namex>, sondern “name> ins Dictio- 
nary eingetragen. Im Unterschied zu 

: <nama> {nanex> ij 
ist ea mit ALIAB auch moeglich, Worte, die dan Re- 
turnstack beeinflussen (vergleiche >R oder R> ), 
nit anderem Nanen zu definieren. Ausser dem neusn 
Kopf fuer <name> wird kein zusaetzlicher Speicher- 
platz verbraucht. 


( 18b -- ) 83 
ein definierendes Wort, das in der Form: 

1i6b Constant <name> 
benutzt wird. Wird <name> spaeter ausgefuehrt, so 
wird 16b auf den Stack gelegt. 





Defer 


Input: 
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ein definierendes Wort, das in dar Form: 

Defer <name> 
benutzt wird. Erzeugt den Kopf fuer ein neues Wort 
<nama> im Dictionary, haelt 2 Bytes in dessen Para- 
meterfeld frei und speichert dort die Kompilations- 
adresse einer Fehlerroutine. Wird <name> nun ausge- 
fuehrt, so wird die Ausfushrung mit einer Fehler- 
meldung abgebrochen. Man kann dem Wort <name> zu 
jedem Zeitpunkt eine andere Funktion zuweisen, sie- 
hs IS . <name> laesst sich jedoch schon kompilie- 
ren, ohne dass sa eine sinnvolle Aktion ausfuehrt. 
Damit ist die Kompilation erst spaeter definierter 
Worte indirekt moeglich. Andererseits ist die Ver- 
aenderung des Verhaltens von <name> fuer spezielle 
Zwacke moeglich. 


Deferred Worte im System sind: 
R/W „ ’COLD „ ’RESTART ,„ '"ABORT ,„ ’QUIT, 
NOTFOUND „ .STATUB und DISKERR . 

Ein spezielles Deferred Wort ist 
>INTERPRET. 


(--) "input-colon" 
ein definierendas Wort, benutzt in der Form: 

Input: <name> 

newKEY newkEY? nawDECODE newEXFECT { 
INPUT: erzeugt einen Kopf? Zuer <name> im Dictio- 
nary und kompiliert einen Vektor von Zeigern auf 
Worte, die fuer die Eingabe von Zeichen zustaendig 
sind. Wird <name> ausgefuehrt, ao wird ein Zeiger 
auf das Parameterfeld von <name> in die Uservari- 
able INPUT geschrieben. Alle Eingaben werden Jetzt 
ueber die neuen Eingabeworte abgewickelt. Die Rei- 
henfolge der Worte nach INPUT: <name> bis zur [ 
kuss eingehalten werden. 


Im System ist das mit INPUT: definierte Wort 

enthalten, wenn der Editor geladen ist, 
stehen ausserdem EDIBÖARD und DIGIT3 zur Verfue- 
gung, 


( ofa - ) 
ein Wort, mit dem das Verhalten eines Deferred Wor- 
taz veraendert werden kann. IS wird in der Form: 

'’ <nanex> Is <nama> 
benutzt. Wenn <nans> kein Deferred Nort ist, zo 
wird eine Fehlerbehandlung eingeleitet, sonst wird 
sumn: die Ausfuehrung von <namex> zugewiesen. Sie- 

» DEFER. 





Output: 


User 


Variable 
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(--) "output-colon" 
ein definierendes Wort, benutzt in der Form: 
Qutput: <name> 
newEMIT new©R newTYPE newDEL newPAGE newAT 
newAT? [ 
OUTPUT: erzeugt einen Kopf fuer <name> im Dictio- 
nary und kompiliert einen Vektor aus Zeigern auf 
Worte, die fuer die Ausgabe von Zeichen verantwort- 
lich sind. Wird <nane> ausgefuehrt, so wird ein 
Zeiger auf das Parameterfeld von <nane> in die 
Uservariable OUTPUT geschrieben. Alle Ausgaben wer- 
den jetzt ueber die neuen Ausgabeworte abge- 
wickelt. Die Reihenfolge der Worte nach OUTPUT: 
<name> bis aur [ muss eingehalten werden. 


Im System ist das mit OUTPUT: definierte Wort 
DISPLAY enthalten. 


(=) 83 
ein definierendes Wort, benutzt in der Form: 

User <nane> 
USER erzeugt einen Kopf fuer <name> und haelt 2 
Byte in der Userarea frei. Sieha UALLOT . Diese 2 
Byte werden fuer den Inhalt der USERvariablen be- 
autzt und werden nicht initialisiert. Im Parameter- 
feld der USERvariablen in Diotionary wird nur ein 
Byte- Offset zum Beginn der Userarea abgelegt. 
Wird <name> spaeter ausgefuehrt, so wird die Adres- 
se des Wertes der US5ERvariablen in der Userarea 
auf den Stack gegeben. 


83 

ein definierendes Wort, benutst in der Form: 

Variable <name> 
VARIABLE erzeugt einen Kopf fuer <name> und haelt 
2 Byte in seinem Parameterfeld frei. Siehe ALLOT. 
Diss Parameterfeld wird fuer den Inhalt der 
VARIABLEn benutzt und wird nicht initialisiert. 
Wird <name> spaeter ausgefuehrt, zo wird die Adres- 
sa des Parameterfeldes auf den Stack gegeben. 


Vocabulary re) 83 


ein definierendes Wort, das in der Form: 
Vocabulary <name> 
benutzt wird. VOCABULARY erzeugt einen Kopf fuer 
<name>, das den Anfang einer neuen Liste von Wor- 
ten bildet. Spaetere Ausfuehrung von {nanme> er- 
setzt das erate Vokabular in der Suchreihenfolge 
durch <name>. Wird <name> das Kompilations Vokabu- 
lar, so werden neus Definitionen in die Liste von 
<name> gelinkt. Vergleiche DEFINITIONS . 






(forget 


‚name 


allot 


clear 


dp 


empty 


forget 
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Dictionary - Worte 


( -- addr ) 33 "tick" 
Wird in der Form " <name> benutzt. 
addr ist die Kompilationsadresse von <name>. Wird 
<name> nicht in der Suchreihenfolge szefunden, so wird 
eine Fehlerbehandlung eingeleitet. 


( addr -- ) "paren-forget" 
Entfernt alle Worte, deren Kompilationsadresse 
oberhalb von addr liegt, aus dem Dictionary und setzt 

HERE auf addr. Ein Fehler liegt vor, falls addr im 
Heap liegt. 


(| 16b -— ) 83 "comma” 
2 ALLOT fuer 16b und speichere 16b ab HERE 2- 


( addr -- ) "dot-name" 
addr ist die Adresse des Countfeldes eines Namens. 
Dieser Names wird ausgedruckt. Befindet er sich im 
Heap, so wird das Zeichen | vorangestellt. Ist addr 
null, so wird "???" ausgegeben. 


(w--) 83 
Allokiere w Bytes im Dictionary. Die Adresse des 
naechsten freien Dictionaryplatzes wird entsprechend 
verstellt. 


( 16b -- ) "c-comma“ 
ALLOT ein Byte und speichere die unteren B Bit von 16b 
in HERE 1-. 


( _ ._ 
Loescht alle Namen und Worte im Heap. 


( za addr J "d-p" 
Eine Uservariable, die die Adresse des naechsten 
freien Dictionaryplatzes enthaelt. 


u, 
Loescht alle Worte, die nach der letzten Ausfuehrung 
von SAVE oder dem letzten Kaltstart definiert wurden. 
DP wird auf seinen Kaltstartwert gesetzt und der Heap 
geloescht. 


Gen) 63 
Wird in der Form FORGET <name> benut2t 
Falls <name> in der Suchreihenfolge gefunden wird, so 
werden <name> und alle danach definierten Worte aus 
dem Dictionary entfernt. Wird <name> nicht gefunden, 
so wird eine Fehlerbehandlung eingeleitet. Liegt 
<name> in dem durch SAVE geschustzten Bereich, zo wird 
ebenfalls eine Fehlerbehandlung eingeleitet. Es wurden 
Vorkehrungen getroffen, die aa ermoeglichen, aktive 
Tasks und Vokabulare, die in der Suchreihenfolge 
auftreten, Zu vergessen. 


here 


hide 


last 


name> 


origin 


reveal 


save 


uallot 


udp 


>body 


’name 
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( -- addr ) 83 
addr ist die Adresse des naechsten freien 
Dictionaryplatzes. 


— m 


Entfernt das zuletzt definierte Wort aus der Liste 
des Vokabulars, in das es eingetragen wurde. Dadurch 
kann es nicht gefunden werden. Es ist aber noch im 
Speicher vorhanden. ( s.a. REVEAL LAST ) 


( -- addr ) 
Variable, die auf das Countfeld des zuletzt 
definierten Wortes zeigt. 


( addri -- addr2 ) "name-from" 
addr2 ist die Kompilationsadresse die mit dem 
Countfeld in addri korrespondiert. 


( -- addr ) 
addr ist die Adresse, ab der die Kaltstartwerte der 
Uservariablen abgespeichert sind. 


Traegt das zuletzt definierte Wort in die Liste des 
Vokabulars ein, in dem es definiert wurde. 


Kopiert den Wert aller Uservariablen in den 
Speicherbereich ab ORIGIN und sichert alle 
Vokabularlisten. Wird spaeter COLD ausgefuehrt, so 
befindet sich das System im gleichen Speicherzustand 
wie bei Ausfushrung von SAVE. 


(nl -- n22) 
Allokiere bzw. deallokiere ni Bytes in der Userarea. 
n2 gibt den Anfang des allokierten Bereiches relativ 
zum Beginn der Userarea an. Eine Fehlerbehandlung 
wird eingeleitet, wenn die Userarea voll ist. 


( -- addr ) “u-d-p" 
Eins Uservariable, in dem das Ende der bisher 
allokierten Userarea vermerkt ist. 


( addri -- addr2 ) "to-body" 
addr2 ist die Parameterfeldadresse, die mit der 
Kompilationsadresse addri korrespondiert. 


( addri -- addr2 ) "to-name" 
addr2 ist die Adresse eines Countfeldes, das mit der 
Kompilationsadresse addri korrespondiert. Es ist 
moeglich, dass es mehrere addr2 fuer ein addri gibt. 
In diesem Fall ist nicht definiert, welche 
ausgewaehlt wird. 





i 
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Vokabular - Worte 


also " (--) 
Ein Wort, um die Suchreihenfolge zu spezifizieren. Das 
Vokabular im auswechselbarem Teil der Suchreihenfolge 
wird zum ersten Vokabular im festen Teil gemacht, 
wobei die anderen Vokabulare des festen Teils nach 
hinten ruecken. Ein Fehler liegt vor,. falls der feste 
Teil sechs Vokabulare enthaelt. 


Assembler (--) 
Ein Vokabular, das Prozessor-spezifische Worte 
enthaelt, die fuer Code-Definitionen benoetigt werden. 


context ( -- addr ) 
addr ist die Adresse des auswechselbaren Teils der 
Suchreihenfolge. Sie enthaelt einen Zeiger auf das 
erste zu durchsuchende Vokabular. 


current ( -—- addr ) 
addr ist die Adresse eines Zeigers, der auf das 
Kompilationsvokabular zeigt, in das neue Worte 
eingefuegt werden. 


definitions rei) 83 
Ersetzt das gegenwaertige Kompilationsvokabular durch 
das Vokabular im auswechselbaren Teil der 
Suchreihenfolge, d.h. neues Worte werden in ‚dieses 
Vokabular eingefuegt. 


Forth Be) 83 
Das urspruengliche Vokabular. 
forth-83 (--) B3 


Lt. Forth83-Standard soll dieses Wort alcherstellen, 


dass ein Standardsystem benutzt ‚wird. Im ultraFORTH 
funktionslos. 


Only ( -- 
Loescht dis Suchreihenfolge vollstaendig und ersetzt 
sie durch das VoRabular ONLY im festen und 
auswechselbaren Teil der Suchreihenfolge. ONLY 
enthaelt nur wenige Worte, die fuer die Erzeugung 
einer Suchreihenfolge benoetigt werden. 


Onlyforth (-) 
entspricht der haeufig benoetigten Sequenz 
ONLY FORTH ALSO DEFINITIONS. 


seal (m) 
Loescht das Vokabular ONLY ,„ ao dass es nicht mehr 
durchsucht wird. Dadurch ist es moeglich, nur die 
Vokabulare des Anwenderprogramms durchsuchen zu lassen. 







words 
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Entfernt das erste Vokabular des festen Teils der 
EZ SANSRLONES. Insofern ist es das Gegenstueck zu 
ALSO . 


FrELTH-Gesellsc: 





) 
Gibt die Namen der Worte dss Vokabulars, das im 
auswechselbaren Teil der Suchreihenfolge steht, aus, 
beginnend mit dem zuletzt erzeustem Nanen. 


voc-link ( -- addr ) 


Eine Uservariable. Sie enthaelt den Anfang einer Liste 
mit allen Vokabularen. Diese Liste wird u.a. fuer 
FORGET bencetigt. 


( -- addr ) "y-p"“ 
Eine Variable, die das Ende der Suchreihenfolge 
narkiert. Sie enthaelt ausserdem Informationen ueber 
die Laenge dar Suchreihenfolge. 


uitraröRTNdl 5 


head 


hallot 


heap 


heap? 
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Heap - Worte 


( -- addr ) "question-head" 
Eine Variable, die angibt, ob und wieviele der 
naechsten zu erzeugenden Namen im Heap angelegt werden 
sollen (s.a. ! ). 


nr 
Allokiere bzw. deallokiere n Bytes auf dam Heap. Dabei 


wird der Stack verschoben, ebenso wie der Beginn des 
Heap. 


({ -- addr ) 
addr ist der Anfang des Heap. Er wird u.A. durch 
HALLOT geaendert. ' 


( addr -- flag ) "heap-question” 
Das Flag ist wahr, wenn addr ein Byte im Heap 
adressiert, ansonsten falsch. 


(-—-) "headerless" 
Setzt bei Ausfuehrung 7HRAD so, dass der naechste 
erzeugte Name nicht im normalen Dictionaryspeicher 
angelest wird, sondern auf dsm Heap. 








+LOOP 


?DO 


exit 


BEGIN 


bounds 


ELSE 


Slossare 





Kontrollstrukturen 
(n--) 83,1,C "plus-loop" 
(sys -- ) ceompiling 


n wird zum Loopindex addiert. Falls durch die Addition 
die Grenze zwischen limit-i und limit ueberschritten 
wurde, so wird die Schleife beendet und die 
Loop-Parameter werden entfernt. Wurde die Schleife 
nicht beendet, so wird sie hinter dem 
korrespondierenden DO bzw. ?DO fortgesetzt. 


(ww2 -- ) 83,1I,C "“aquestion-do" 


{-- ays ) compiling 
Wird in der folgenden Art benutzt: 
? . LOOP bzw. °?DO ... +LOOP 


Beginnt eine Schleife. Der Schleifenindex beginnt mit 
w2, limit ist wi. Details ueber die Beendigung von 
Schleifen: s. +LOOP. Ist w2=wi , so wird der 
Schleifenrumpf ueberhaupt nicht durchlaufen. 


( flag -- ) "question-exit"“ 
Fuehrt EXIT aus, falls das flag wahr ist. Ist das flag 
falsch, so geschieht nichts. 


( Bo ) 83,1I,C 

(sy5 ---) compiling 
Wird in der folgenden Art benutzt: 

BEGIN ( ...£lag WHILE ) ... flag UNTIL 
oder: BEGIN ( ...flag WHILE ) ... REPEAT 


BEGIN markiert den Anfang einer Schleife. Der 
()-Ausdruck ist optional und kann beliebig oft 
auftreten. Die Schleife wird wiederholt, bis das flag 
bei UNTIL wahr oder oder das flag bei WHILE falsch 
ist. REPEAT setzt die Schleife immer fort. 


{ start count -- limit start ) 
Dient dazu, ein Intervall, das durch Anfangswert start 
und Laenge count gegeben ist, in ein Intervall 
umzurechnen, das durch Anfangswert start und Endwert+1 
limit beschrieben wird. 


Beispiel : 10 3 bounds DO ... LOOP fuehrt dazu, das I 
die Werte 10 11 12 annimmt. 


(ww --) 83,1,C 

( sya -- ) ' compiling 
Entspricht ?DO „ jedoch wird der Schleifenrumpf 
mindestens einmal durchlaufen. Ist wi=zw2 , so wird der 
Schleiferumpf 65636-mal durchlaufen. 


ee) 83,1,C 

( sysi -- sys2 )compiling 
Wird in der folgenden Art benutzt: 

flag IF ... ELSE ... THEN 
ELSE wird unmittelbar nach dam Wahr-Teil ‚ der auf IF 
folgt, ausgefuehrt. ELSE setzt die Ausfuehrung 
unmittelbar hinter THEN fort. 


ultraFORTRaZ 














execute 


IF 


LEAVE 


LOOP 


perform 


REPEAT 


TREN 


ultraFoRTHB3 | 





ech 1985 bp/ks/re/ue FORT 


Glossare | 
( addr -- ) 83 


Das Wort, dessen Kompilationsadresse addr ist, wird 
ausgefuehrt. 


{-.) 83,C 
Wird zwischen DO und LOOP benutzt, um eine Kopie des 
Schleifenindex auf den Stack zu holen. 


ı flag -- ) 83, 1I,C 

(m Br) compiling 
Wird in der folgenden Art benutzt: 

flag IF ... ELSE ... THEN 
oder: flag IF ... THEN 


Ist das flag wahr, so werden die Worte zwischen IF und 
ELSE ausgefuehrt und die Worte zwischen ELSE und THEN 
ignoriert. Der ELSE-Teil ist optional. 

Ist das flag falsch, so werden die Worte zwischen IF 
und ELSE ( bzw. zwischen IF und THEN ,„ falls ALSE 
nicht vorhanden ist ) ignoriert. 


ee 83,C 
Wird zwischen DO .. DO und LOOP .. LOOP benutzt, um 
eine Kopie des Schleifenindex der asusseren Schleife 
auf den Stack zu holen. 


5 ( ) ) 83,C 
Setzt die Ausfuehrung des Programmes hinter dem 
naechsten LOOP oder +LOOP fort, wobei die zugehoehrige 
Schleife beendet wird. Mehr als ein LEAVE pro Schleife 
ist moeglich, ferner kann LEAVE zwischen anderen 
Kontrollstrukturen auftreten. Der Forth83-Standard 
schreibt abweichend vom ultraFORTH vor, dass LEAVE ein 
immediate Wort ist. 


0) 83,1,C 
Ü -- By3 ) compiling 
Entspricht +LOOP, jedoch mit n=-1 fest gewaehlt. 


( addr -- ) 
addr ist eine Adresse, unter der sich ein Zeiger au? 
die Kompilationsadresse eines Wortes befindet. Dieses 
Wort wird ausgefuehrt. Entspricht der Sequenz & 
EXECUTE . 


( ==) 83,1,C 

( -- sys ) compiling 
Wird in der folgenden Form benutzt: 

BEGIN (.. WHILE) .. REPEAT 
REPEAT setzt die Ausfuehrung der Schleife unmittelbar 
hinter BEGIN fort. Der ()-Ausdruck ist optional und 
kann beliebig oft auftreten. 


==) 83,1,C 
(sys -- ) compiling 

Wird in der folgenden Art benutzt: 
IF (...ELSE) ... THEN 


Hinter THEN ist die Programmverzweigung zuende. 
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UNTIL ( flag -- ) 83,1,C 
( sys -- ) compiling 
Wird in der folgenden Art benutzt: 
BEGIN (... flag WHILE) ... flag UNTIL 


Markiert das Ende einer Schleife, deren Abbruch durch 
flag herbeigefuehrt wird. Ist das flag vor UNTIL wahr, 
so wird die Schleife beendet, ist as falsch, so wird 
die Schleife unmittelbar hinter BEGIN fortgesetzt. 


WHILE ( flag -- ) 83,1I,C 

( sysal -- sys2 )compiling 
Wird in der folsenden Art benutzt: 

BEGIN .. flag WHILE .. REPEAT 
oder: BEGIN .. flag WHILE .. flag UNTIL i 
Ist das flag vor WHILE wahr, so wird die Ausfuehrung 
der Schleife bis UNTIL oder REPEAT fortgesetzt, ist es 
falsch, so wird die Schleife beendet und das Programm 
hinter UNTIL bzw. REPEAT fortgesetzt. Im koennen mehre 
WHILE in einer Schleife verwendet werden. 





Ascii 


compile 


Does> 


ultraFlRTHBZ 
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Compiler - Worte 


== "somma-quote" 
Speichert einen counted String im Dictionary ab HERE. 
Dabei wird die Laenge des Strings in dessen erstem 
Byte, das nicht zur Laenge hinzugezaehlt wird, 
vermerkt. 


( -- char ) I 
Se) compiling 

Wird in der folgenden Art benutzt: 

Ascii ccc 
wobei ccc durch ein Leerzeichen beendet wird. char ist 
der Wert des ersten Zeichens von ccc im benutzten 
Zeichensatz (gewoehnlich ASCII). Falls sich das System 
im kompilierenden Zustand befindet, so wird char als 
Konstante compiliert. Wird die :-definition spaeter 
ausgefuehrt, =o liegt char auf dem Stack. 


( zen ) 83,C 
Typischerweise in der folgenden Art benutzt: 

“ <name> .„.. compile “namex> ... ; 
Wird <name> ausgefuehrt, ao wird die 
Kompilationsadresse von <namex> zum Dictionary 
hinzugefuegt und nicht ausgefuehrt. Typisch ist <name> 
immediate und <namex> nicht immediate. 


( -- addr ) 83,I,C "does" 

(. ) compiling 
Definiert das Verhalten des Wortes, das durch ein 
definierendes Wort erzeugt wurde. Wird in der 
folgenden :-Art benutzt: 

<namex> ... <create> ... Does> ... ; 

und spaeter: 

<namex> <name> 
wobei <create> CHEATE oder ein anderes Wort ist, das 
CREATE ausfuehrt. 


Zeigt das Ende des Wort-erzeugenden Teils des 
definierenden Wortes an. Beginnt die Kompilation des 
Codes, der ausgefuehrt wird, wenn <name> aufgerufen 
wird. In diesem Fall ist addr die Parameterfeldadresse 
von <name>. addr wird auf den Stack gebracht und die 
Sequenz zwischen DOES> und ; wird ausgefuehrt. 


immediate (--) 83 


Literal 


Markiert das zuletzt definierte Wort als "immediate", 
d.h. dieses Wort wird auch im kompilierenden Zustand 
ausgefuehrt. 


( ——- 16b ) 83,1,C 

( 16b -- ) compiling 
Typisch in der folgenden Art benutzt: 

[ 16b ] Literal 
Kompiliert ein systemabhaengiges Wort, ao dass bei 
Ausuehrung 16b auf den Stack gebracht wird. 








recursive (..=#:) I,Cc 

==) compiling 
Erlaubt die rekursive Kompilation des gerade 
definierten Wortes in diesem Wort selbst. Ferner kann 
Code fuer Fehlerkontrolle erzeugt werden. 


restrict 


[’] 


( ) 
Markiert das zuletzt definierte Wort als "restrict", 
d.h. dieses Wort kann nicht vom Textinterpreter 
interpretiert sondern ausschliesslich in anderen 
Worten kompiliert werden. 


(-- ) 83,1 "lMeft-bracket" 
==) compiling 
Schaltet den interpretierenden Zustand ein. Der 
Quelltext wird sukzessive ausgefuehrt. Typische 
Benutzung : s. LITERAL 


( -- addr ) 83,1I,C "bracket-tick" 
ee) compiling 
Wird in der folgenden Art benutzt: 
’] <name> 
Kompiliert die Kompilationsadresse von <name> als eine 
Konstante, Wenn die :-definition spaeter ausgefuehrt 
wird, ao wird addr auf den Stack gebracht. Ein Fehler 
tritt auf, wenn <name> in der Suchreihenfolge nicht 
gefunden wird. 


[compile) (--) 83,1I,C "bracket-compile" 


(--) compiling 
Wird in der folgenden Art benutzt: 

[(oompile] <name> 
Erzwingt die Kompilation des folgenden Wortes <name>. 
Damit ist die Kompilation von immediate-Worten 
moeglich. 





+load 


+thru 
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Interpreter - Worte 


(=>) 83,1 "paren" 
=) compiling 

Wird in der folgenden Art benutzt: 
( cce)- 


Die Zeichen ccc, abgeschlossen durch ) , werden als 
Kommentar betrachtet. Kommentare werden ignoriert. Das 
Leerzeichen zwischen ( und ccce ist nicht Teil des 
Komnentars. ( kann im interpretierenden oder 
kompilierenden Zustand benutzt werden. Fehlt ) , so 
werden alle Zeichen im Quelltext als Kommentar 
betrachtet. 


..n=e) "plus-load" 
LOAD den Block, dessen Nummer um n hoeher ist, als die 
Nummer des gegenwaertig interpretierten Blockes. 


(nin2 -- ) "plus-thru" 
LOAD die Bloecke hintereinander, die nl..n2 vom 
gegenwaertigen Block entfernt sind. 
Beispiel : 1 2 +thru laedt die naechsten beiden 
Bloecke. 


(--) I “next-block" 
Eee compiling 
Setze die Interpretation auf dem naechsten Block fort. 


( -- addr ) 83 "to-in” 
Eine Variable, die den Offset auf das gegenwaertige 
Zeichen im Quelltext enthaelt. s. WORD 


»>interpret (--) "to-interpret" 


blk 


find 


Ein deferred Wort, das die gegenwaertige 
Interpretationsroutine aufruft, ohne eine 
Rueckkehradresae auf dem Returnstack zu hinterlassen 
(was INTERPRET tut). Es kann als spezielles GÖOTO 
angesehen werden. 


( -- addr ) 83 "b-1-Kk" 
Eine Variable, die die Nummer des gerade als Quelltext 
interpretierten Blockes enthaelt. Ist der Wert von BLK 
Null, so wird der Quelltext vom Texteingabepuffer 
genommen. 


( addri -- addr2 n )83 
addri ist die Adresse eines counted string. Der String 
enthaelt einen Namen, der in der aktuellen 
Suchreihenfolge gesucht wird. Wird das Wort nicht 
gefunden, a0 ist addr2 = addri und n = Null. Wird das 
Wort gefunden, 30 ist addr2 dessen Kompilationsadresse 
und n erfuellt folgende Bedingungen: 
n ist vom Betrag 2 ,„ falls das Wort restrict ist, 
sonst vom Betrag 1 
n ist positiv, wenn das Wort immediate ist, sonst 
negativ. 
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interpret nm 


load 


) 
Beginnt die Interpretation des Quelltextes bei dem 
Zeichen, das durch den Inhalt von >IN indiziert wird. 
>IN indiziert relativ zum Anfang ds=z Blockes, dessen 
Nummer in BLK steht. Ist BLK Null, so werden Zeichen 
aus dem Texteingabepuffer interpretiert. 


(n--) 83 
Die Inhalte von >IN und BLK, die den gegenwaertigen 
Quelltext angeben, werden gespeichert. Der Block mit 
der Nummer n wird dann zum Quelltext. gemacht. Der 
Block wird interpretiert. Die Interpretation wird bei 
Ende des Blocks abgebrochen, sofern das nicht explizit 
geschieht. Dann wird der alte Inhalt nach BLK und >IN 
zurueckgebracht. s.a. BLK >IN BLOCK 


( -- addr ) 
Holt den naechsten String, der durch Leerzeichen 
eingeschlossen wird, aus dem Quelltext, wandelt ihn in 
Grossbuchstaben um und hinterlaesst die Adresse addr, 
ab der der String im Speicher steht. s. WORD 


notfound { addr -— ) 


Parse 


quit 


source 


state 


Ein deferred Wort, das aufgerufen wird, wenn der Text 
aus dam Quelltext weder als Nama in der 
Suchreihenfolge gefunden wurde, noch als Zahl 
interpretiert werden kann. Kann benutzt werden, um 
eigene Zahl- oder Stringeingabeformate zu erkennen. 
Ist mit NO.EXTENSIONS vorbesetzt. Dieses Wort bricht 
die Interpretation das Quelltextes äb und druckt die 
Fehlermeldung "haeh?" aus. 


{ char -- addr *+n ) 
Liefert die Adresse addr und Laenge +n det naechsten 
Strings im Quelltext, der durch den Delimiter char 
abgeschlossen wird. +n ist Null, falls der Quelltext 
erschoepft oder das erste Zeichen char ist. >IN wird 
veraendert. . " 


( } 83 
Entleert den Returnstack, schaltet den 
interpreterierenden Zustand ein, akzeptiert Eingaben 
von der aktuellen Eingabeeinheit und beginnt die 
Interpretation dss eingegebenen Textes. 


( -- addr +n ) 
Liefert Anfang addr und maximale Laenge +n des . 
Quelltextes. Ist BLE Null, beziehen sich Anfang und 
Laenge auf den Texteingabepuffer, sonst auf den Block, 
dessen Nummer in BLK steht und der in den 
Rechnerspeicher kopiert wurde. s. BLOCK >IN 


{ -- addr ) 83 
Eine Variable, die den gegenwaertigen Zustand 
enthaelt. Der Wert Hull zeigt den interpretierenden 
Zustand an, ein von Null verschiedener Wert den 
kompilierenden Zustand. 


ur 





thru 


word 


\\ 


\needs 


(nin2 -- ) 
LOAD die Bloecke von ni bis inklusive n2. 


( char -- addr )83 
erzeugt einen counted String durch Lesen von Zeichen 
vom Quelltext, bis dieser erschoepft ist oder der 
Delimiter char auftritt. Der Quelltext wird nicht 
zerstoert. Fuehrende Delimiter werden ignoriert. Der 
gesamte String wird im Speicher beginnend Ab Adresse 
addr als eine Sequenz von Bytes abgelegt. Das erste 
Byte enthaelt die Laenge das Strings (0..255). Der 
String wird durch ein Leerzeichen beendet, das nicht 
in der Laengenangabe enthalten ist. Ist der String 
laenger als 255. Zeichen, so ist die Laenge 
undefiniert. War der Quelltext schon erschoepft, als 
WORD aufgerufen wurde, so wird ein String der Laenge 
Null erzeugt. 
Wird der Deliniter nicht im Quelltext gefunden, so ist 
der Wert von >IN die Laenge des Quelltextes. Wird der 
Deliniter gefunden, ao wird >IN so veraendert, dass 
>IN das Zeichen hinter dem Delimiter indiziert. #TIB 
wird nicht veraendert. 
Der String kann sich oberhalb von HERE befinden. 


ee 83,1 "rigaht-bracket" 
(==) compiling 
Schaltet den kompilierenden Zustand ein. Der Text vom 
Quelltext wird sukzessive kompiliert. apa 
Benutzung s. LITERAL 


(= I “skip-line" 

( compiling 
Isnoriere den auf dieses Wort folgenden Text bis zum 
Ende der Zeile. s. C/L 


(=>) I "skip-screen" 

273) compiling 
ighoriere den auf dieses Wort folgenden Text bis zum 
Endes des Blockes. s. B/BLK 


(--) "skip-needs" 
Wird in der folgenden Art benutzt: 

\needs <nana> 
Wird <name> in der Suchreihenfolge gefunden, so wird 
der auf <name> folgende Text bis zum Ende der Zeile 
ignoriert. Wird <nama> nicht gefunden, so wird die 
Interpretation hinter <nane> OL Wesabat: 
Beispiel:\needs Editor l+ lo 
Laedt den folgenden Block, Falls EDITOR im Dictionary 
nicht vorhanden ist. 


(error 


?pairs 


7stack 


abort 


Abort" 


diskerr 
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Fehlerbehandlung 


( string -- ) "paren-error“ 
Dieses Wort steht normalerweise in der Variablen 
ERRORHANDLER und wird daher bei ABORT" und ERROR" 
ausgefuehrt. string ist dann die Adresse des auf 
ABORT" bzw. ERROR" folgenden Strings. (ERROR gibt 
das letzte Wort des Quelltextes gefolgt von dem String 
auf dem Bildschirm aus. Die Position des letzten 
Wortes im Quelltext, bei dem der Fehler auftrat, wird 
in SCR und R# abgelegt. 


(nin2 -- ) "question-pairs" 
Ist nl <> n2 „ a0 wird die Fehlermeldung 
"unstructured" ausgegeben. Dieses Wort wird benutzt, 
um die korrekte Schachtelung der Kontrollstrukturen zu 
ueberpruefen. 


= 7 "question-stack" 
Prueft, ob der Stack ueber- oder leerlaeuft. Der 
Stack laeuft leer, falls der Stackpointer auf eine 
Adresse oberhalb von 80 zeigt. In diesem Fall wird 
die Fehlermeldung "stack enpty“" ausgegeben. Der 
Stack laeuft ueber, falls der Stackpointer zwischen 
HERE und HERE + $100 liegt. In diesem Fall wird die 
Fehlermeldung "tight stack" ausgegeben, falls mahr 
als 31 Werte auf dem Stack liegen. Ist das nicht der 
Fall, ao versucht das System, das zuletzt definierte 
Wort zu vergessen und es wird die Fehlermeldung 
"dictionary full" ausgegeben. 


ne 83,1 
Leert den Stack, fuehrt END-TRACE STANDARDI/O und 
QUIT aua. 


( flag ) 83,1,C "abort-quote" 

ke compiling 
Wird in der folgenden Form benutzt: 

flag Abort" ccc" 
Wird ABORT" spaeter ausgefuehrt, so geschieht nichts, 
wenn flag falsch ist. Ist flag wahr, so wird der Stack 
geleert und der Inhalt von ERRORHANDLER ausgefuehrt. 
Beachten Sie bitte, dass im Gegensatz zu ABORT kein 
END-TRACE ausgefuehrt wird. 


en) 
Ein deferred Wort, das normalerweise mit (DISKERR 
vorbesetzt ist. DISKERR wird aufgerufen, wenn ein 
Fehler beim Massenspeicherzugriff auftrat. (DISKERR 
gibt dann die Meldung "error ! r to retry"“ aus. Wird 
anschliessend r gedrueckt, ao wiederholt das System 
den Massenspeicher2zugriff, der zum Fehler fuehrte. 
Wird eine andere Taste gedrueckt, so wird der Zugriff 
abgebrochen und die Meldung "aborted“ ausgegeben. In 
diesem Fall wird die interne Verteilung der 
Blockpuffer nicht geaendert. 
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Error" 
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( flag ) I,c "error-quote" 
("-) compiling 
Dieses Wort entspricht ABORT" „ Jedoch mit dem 
Unterschied, dass der Stack nicht geleert wird. 


errorhandler ( -- adr ) 


warning 


adr ist die Adresse einer Uservariablen, deren Inhalt 
die Kompilationsadresse eines Wortes ist. Dieses Wort 
wird ausgefuehrt, wenn das flag, das ABORT" bzw. 
ERROR" verbrauchen, wahr ist. Der Inhalt von 
ERRORHANDLER ist normalerweise (ERROR. 


( -- adr ) 
adr ist die Adresse einer Variablen. Ist der Inhalt 
der Variablen null, so wird die Warnung "exists" 
ausgegeben, wenn ein Wort redefiniert wird. Ist der 
Wert nicht null, so wird die Warnung unterdrueckt. 
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Sonstiges 


’abort ( ) "tick-abort" 
Dies ist is deferred Wort, das mit HNOOP vorbesetst 
ist. Es wird in ABORT ausgefuehrt, bevor QUIT 
aufgerufen wird. Es kann benutzt werden, um 
"automatisch" selbst definierte Gtacksz zu loeschen . 


"cold (--)) "tick-cold" 
Dies ist ein deferred Wort, das mit NOOP vorbesetzt 
ist. Es wird in COLD aufgerufen, bevor die 
Einschaltmeldung ausgegeben wird. Es wird benutzt, um 
Geraete zu initialisieren oder Anwenderprogramme 
automatisch zu starten. 


"quit (-) "tick-quit" 
Diez ist ein deferred Wort, das normalerweise nit 
(QUIT besetzt ist. Es wird in QUIT aufgerufen, 
nachdem der Returnstack enleert und der 
interpretierende Zustand inubsohaltkt ; wurde. Es wird 
benutzt, um spezielle Kommandointerpreter (wie z.B. im 
Tracer) aufzubauen. 


'restart (--) "tick-restart" 
Dies ist ein deferred Wort, das mit HOOP vorbesetzt 
ist. Es wird in RESTART aufgerufen, nachdem ’QUIT 
mit (QUIT besetzt wurde. Es wird benutzt, um Geraete 
nach seinem Warmstart zu reinitialisieren. 


(quit Ce) "paren-quit" 
Dieses Wort ist normalerweise der Inhalt von ’QUIT. 
Es wird von QUIT benutzt. Es akzeptiert eine Zeile 
von der aktuallen Eingabeeinheit, fuerht sie aus und 
druckt "ok" bzw. "compiling“. 


‚status ( --) "dot-status” 
Dieses Wort ist ein deferred Wort, das vor dem 
Einlesen einer Zeile bzw. dem Laden eines Blocks 
ausgefuehrt wird. Es ist mit NOOP vorbesetzt und 
kann dazu benutzt werden, Informationen ueber den 
Systemzustand oder den Quelltext auszugeben. 


bye =) x 
Dieses Wort fuehrt FLUSH und EMPTY aua. 
Anschliessend wird der Monitor des Rechners 
angoesprungen oder eine andsare 
implementationsabhaengige Funktion ausgefuehrt. 


cold (--) 
Bewirkt den Kaltstart das Systens. Dabei werden alle 
nach der letzten Ausfuehrung von SAVE definierten 
Worte entfernt, die Uservariablen auf den Wart 
gesetzt, den sie bei SAVE hatten, die Blockpuffer 
neu initialisiert, der Bildschirm geloescht und die 
Einschaltmeldung "ultraFORTH-83 rev...“ ausgegeben. 
Anschliessend wird RESTART ausgefuehrt. 
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end-trace 2) 
Schaltet den Tracer ab, der durch "patchen“ der 


Next-Routine arbeitet, Die Ausfuehrung des aufrufenden 
Wortes wird fortgesetzt. 


restart 


scr 


Tut gar nichts. 


( -- adr ) r-sharp 
adr ist die Adresse einer erre 2 a Abstand 
daz gerade editierten Zeichens vom Anfang des gerade 
snirierten Screens enthaelt. Vergleiche (ERROR und 


C=-,) 
Bewirkt den Warmstart des Systems. Dieses Wort wird 
beim C84 durch Druecken von RUN/STOP - RESTORE 
aufgerufen. Es setzt ’QUIT ,„ ERRORHANDLER und '’ABORT 
auf ihre normalen Werte und fuehrt ABORT aus. 


( -- adr ) 853 8s-c-r" 
adr ist die Adresse einer Variablen, die die Nummer 
des gerade editierten Screens enthaelt. Vergleiche Rt 
(ERROR und LIST. 
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Massenspeicher 


»drive ( block #drv -- block’ ) "to-drive" 
block’ ist die Nummer des Blocks block auf dem 
Laufwerk #drv, bezogen auf das aktuelle Laufwerk ( 
Vergleiche OFFSET und DRIVE ) . Beispiel: 
5 20 >drive block 
holt den Block mit der Nummer 20 vom Laufwerk 5, egal 
welches Laufwerk gerade das aktuelle ist. 


all-buffers (--) 


Belegt den gesamten Speicherbereich zwischen dem Ende 
des Returnstacks und LIMIT mit Blockpuffern. 


allotbuffer (==) 
Fuegt der Liste der Blockpuffer noch einen weiteren 
hinzu, falls oberhalb vom Ende das Retunstacks dafuer 
noch Platz ist. FIRST wird entsprechend geaendert. 
Vergleiche ALL-BUFFERS 


b/blk ( -- &1024 ) "bytes pro block" 
&1024 ist die Anzahl der Bytes in einem Block. 


b/buf (--n) "bytes pro buffer" 
n ist die Laenge eines Blockpuffers incl. der 
Verwaltungsinformationen des Systens. 


blk/drv (-- nn) "Blocks pro drive" 
n ist die Anzahl der auf dem aktuellen Laufwerk 
verfuegbaren Bloecke. 


block ( u-- addr ) 83 
addr ist die Adresse des ersten Bytes des Blocks u in 
dessen Blockpuffer. Der Block u stammt aus dem File in 
FILE „. Falls der Block in diesem Puffer UPDATEd und 
nicht der Block u ist, dann wird er auf den 
Massenspeicher zurueckuebertragen, bevor der 
Blockpuffer an den Block u vergeben wird. Befindet 
sich der Block u nicht in einem Blockpuffer, so wird 
er vom Massenspeicher in einen an ihn vergebenen 
Blockpuffer ( s.o.) geladen. Eine Fehlerbedingung 
liegt vor, falls u keine Nummer fuer einen vorhandenen 
Block ist. Nur Daten im letzten Blockpuffer, der von 
BLOCK oder BUFFER vergeben wurde, sind gueltig. Alle 
anderen Blockpuffer duerfen nicht mehr als gueltig 
angenommen werden. Der Inhalt eines Blockpuffers 
sollte nur veraendert werden, wenn die Aenderungen 
auch auf den Massenspeicher uebertragen werden sollen. 


buffer (u--adr ) 83 j 
Vergibt einen Blockpuffer an den Block u. addr ist die 
Adresse des ersten Bytes des Blocks in seinem Puffer. 
Dieses Wort entspricht BLOCK , jedoch mit der 
Ausnahme, das, wenn der Block noch nicht im Speicher 
ist, er nicht vom Massenspeicher geholt wird. Daher 
ist der Inhalt dieses Blockpuffers nicht festgelegt. 
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1 Glossare 8 
convey ( bIki bIk2 to.blk -- ) 


Die Bloecke im Ursprungsbereich von blki bis bIlk2 
inclusive werden in den Zielbereich ab Block to.blk 
verschoben. Die Bereiche duerfen sich uweberlappen. Ist 
blk2 kleiner als blkl, so wird "nein" ausgegeben und 
die Ausfuehrung abgebrochen. 


SONS (ulu2 -- ) 
Der Block ul wird in den Block u2 kopiert. Der alte 
Inhalt des Blocks u2 ist verloren. 


core? ( bIk file -- addr/false )"core-question" 
Sofern sich der Block blk aus dem File file im 
Speicher befindet, ist addr die Adresse des ersten 
Bytes des Blocks in seinem Blockpuffer. Befindet sich 
der Block nicht im Speicher, so wird false als 
Ergebnis geliefert. Vergleiche BUÜFFER und FILE 


drive ( 8&drv -- ) 
Selektiert das Laufwerk #drv als aktuelles. Dann 
liefert O0 BLOCK die Adresse des ersten Blocks auf 
diesem Laufwerk. Vergleiche >DRIVE und OFFSET. 


drv? ( block -- #drv ) "drive-question" 
8drv ist das Laufwerk, auf dem sich der Block block 
befindet. Vergleiche OFFSET >DRIVE und DRIVE. 


empty-buffers Fre) 
Loescht den Inhalt aller Blockpuffer. UPDATEAd 
Blockpuffer werden nicht auf den Hassenspeicher 
zurueckgeschrieben. 


file ( -- addr ) 
addr ist die Adresse einer Uservariablen, deren Wert 
die Nummer des aktuellen Files, auf das sich alle 
Massenspeicheroperationen beziehen, ist. Typisch 
entspricht die Nummer eines Files der Adresse seines 
File Control Blocks. Ist der Wert von FILE Null, so 
wird direkt, ohne ein File, auf den Massenspeicher 
(z.B. die Sektoren einer Diskette) zugegriffen. 


first ( -- addr ) 
addr ist die Adresse einer Variablen, in der sich ein 


Zeiger auf den Blockpuffer mit der niedrigsten Adresse 
befindet. Vergleiche ALLOTBUFFER 


flush (--) 83 


Fuehrt SAVE-BUFFERS aus und loescht anschliessend 
alle Blockpuffer. Vergleiche EMPTY-BUFFERS 


freebuffer L:#-+7) 
Der Blockpuffer, auf den FIRST zeigt, wird, falls 
UPDATEd, auf den Massenspeicher gebracht und von der 
Liste der Blockpuffer entfernt. FIRST wird 
entsprechend veraendert. Der Speicherbereich, in dem 
sich dieser Puffer befand, steht damit zur Verfuegung. 


Gibt as nur noch einen Blockpuffer, so geschieht 
nichts. 
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r/w 
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( -- addr ) 
Unterhalb von addr befinden sich die Blockpuffer. Das 
letzte Byte des obersten Blockpuffers befindet sich in 
addr-1. Vergleiche ALL-BUFFERS ALLOTBUFFER 


( -- addr ) 
addr ist die Adresse einer Uservariablen, die einen 
Offset enthaelt, Dieser Offset wird zu der Blocknumner 
addiert, die sich bei Aufruf von BLOCK BUFFER usw. 
auf dem Stack befindet. Die Summe ergibt die Nummer 
des Blocks, der vom Massenspeicher geholt wird. 


( addr block file n -- flag )"r-w" 
Ein deferred Wort, bei dessen Aufruf das 
systemabhaengige Wort ausgefuehrt wird, daa einen 
Block vom Massenspeicher holt. Dabei ist addr die 
Anfangsadresse des Speicherbereichs fuer den Block 
block, file die Filenummer des Files, in dem sich der 
Block befindet und n=0, falls der Block vom 
Speicherbereich in den Massenspeicher gebracht werden 
soll. Ist n=1, so soll der Block von Massenspeicher in 
den Speicherbereich gelesen werden. Das flag ist 
Falsch, falls kein Fehler auftrat, sonst Wahr. 


save-buffers De 83 


update 


Der Inhalt aller Blockpuffer, die als UPDATEA 
gekennzeichnet sind, wird in ihre korrespondierenden 
Massenspeicherbloecke zurueckgeschrieben. Alle 
Blockpuffer werden als unveraendert gekennzeichnet, 
bleiben aber an ihre Bloecke vergeben. 


a 83 
Der zuletzt mit BLOCK BUFFER usw. zugegriffene Block 
wird als veraendert gekennzeichnet. Bloecke mit 
solcher Kennzeichnung werden auf den Massenspeicher 
zurueckgeschrieben, wenn ihr Blockpuffer fuer einen 
anderen Block benoetigt oder wenn SAVE-BUFFERS 
ausgefuehrt wird. Vergleiche PREV 
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(bload 


(bsave 


1541r/vw 


?device 
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C64-spezifische Worte 


( -- Ilag ) 
laedt ein File von einem externen Geraet. Ein Feh- 
ler beim Laden wird durch flag <> FALSE angezeigt. 
Die File- Parameter muessen in der Zeropage abge- 
legt sein. Siehe (BSAVE . 


(-- flag) 
speichert ein File auf ein externes Geraet. Ist 
flag = FALSE ,„ so war das Abspeichern erfolgreich, 
sonst ist flag <> FALSE. (BLOAD aetzst voraus, dass 
die File- Parameter in der Zeropage abgelegt sind: 


ADR Typ Bedeutung 


OAE Wort Endadresse des Files +1 
0OB7 Byte Laenge des Filenamens 
OBA Byte Device Nummer 

OBB Wort Adrasss des Filenamens 
0C1 Wort Anfangsadresse des Files 


Vergleiche (BLOAD . 


( adr blk file r/wf -- flag ) "15-41-r-w" 
liest oder schreibt einen Block Daten ($400 
(&1024) Bytes) vom Diskettenblock blk nach adr 
bzw. von adr auf den Diskettenblock blk., Ist 
r/wf = FALSE „ sa wird auf die Diskatte geschrie- 
ben, ist r/wf <> FALSE „ so wird von der Diskette 
gelesen. 1541R/W ermittelt die zu lesenden bzw. zu 
beschreibenden Sektoren, Zuehrt daa Lesen bzw. 
Schreiben aus und prueft auf alle moeglichen Feh- 
ler. Vergleiche R/W . 


file ist die Hummer das Files, dam der zu uebertra- 
wende Block zugeordnet ist. Zur Zeit ist aus- 
schliesslich der Direktzugriff auf die Diskette 
realisiert. Deshalb wird eine Fehlerbehandlung ein- 
geleitet, wenn file <> DO ist. 


( davö -- ) "question-device" 
prueft, ob das Geraet mit der Nummer dev# am seri- 
ellen Bus anwesand ist. Maldet sich das Geraet 
nicht, zo wird sine Fehlerbehandlung eingeleitet. 
Ein Fehler liegt vor, wenn dev# nicht die Bedin- 
gung 4 =< dev =< %0F (&15) erfuellt. Typische 
dav# sind B fuer das Diskettenlaufwerk und 4 fuer 
dan Drucker. 





bus! 


buse 


busclose 


busin 


businput 


busoff 


Dusopen 


busout 
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(8b -- ) "bus-store" 
gidt 8b ueber den seriellen Bus aus. Ein Fehler 
liegt vor, wenn die Ausgabe nicht vorbereitet wur- 
de. (2.B. durch BUSOUT oder BUSOPEN). 


(-- 8) "bus-fetch” 
holt 5h vom seriellen Bus. Ein Fehler liegt vor, 
wenn die Eingabe nicht vorbereitet wurde. (Z2.B 
durch BUSIN). 


( dev 2nd -- ) 
beendet dio Ausgabe an oder die Eingabe vom Gerast 
mit dar Nummer dev# in bzw. aus einer mit BUSOPEN 
eroeffnete Datei. BUSCLOSE braucht nicht mit 
BUSOFF abgeschlossen werden. Weiteres Verhalten 
siehe BUSOUT . 


( dev# 2änd -- ) 
bereitet die Eingabs ueber den seriellen Bus von 
Geraet mit der Nummer devi vor. Verhaelt sich 
sonst wie BUSOUT ,„ siche dort. 


(adru - ) 
holt u Zeichen vom seriellen Bus und legt sie im 
Speicher ab adr ab. Ein PAUSE wird ausgefuehrt, 
Ein Fehler liegt vor, wenn die Eingabe nicht vorbe- 
reitet wurde. (2,B. durah BUSIN). 


gibt den zeriellen Bus und den Bsmaphor I/O frei. 
ae BUSIN „ BUSOUT „ BUSOPEN „ BUSCLOSE und 


‚, LOCK . e 


( dev 2nd -- ) 
bereitet die Ausgabe ueber den seriellen Bus auf 
daz Geraet mit der Nummer devä vor und teilt dem 
Geraet mit, dass alle nachfolgenden Zeichen bis 
zum naschsten BUSOFF als Dateiname aufzufassen 
sind. Dient zur Vorbereitung von Ein- oder Ausga- 
ben von bzw. in Dateien auf Diskette. Weiteres Ver- 
halten siehe BISOUT . 


{ davt# 2nd -—- ) 
bereitet die Ausgabe ueber den seriellen Bus auf 
das Gerast mit der Nummer dev# vor. Meldet sich 
das Geraet nicht, so wird eine Fehlerbehandlung 
eingeleitet, sonst bekommt das Gerast den Wart Znd 
zugesandt. Zulaessige Warte sind 4 =< devä =< 30F 
(&15) und 0 =< 2nd =< ®1F (&31) anderenfalls liegt 
oin Fehler vor. Der Semaphor I1/O wird gesperrt und 
damit der serielle Bus vor dem Zugriff durch ande- 
ra Tasks geschuetst (Vergleiche LOCE „ 1/0). Ver- 
gleiche BUSOFF „ BUSIN ,„ BUSOPEN „ BUSCLOSE . 
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bustype 


c64at 


c64at? 


c64cr 


c64decode 


c64del 


c64emit 


c64expect 
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(adru-- ) 
gibt u Zeichen, die ab adr im Speicher stehen, 
ueber den seriellen Bus aus. Ein PAUSE wird ausge- 
fuehrt. Ein Fehler liegt vor, wenn die Ausgabe 
nicht vorbereitet wurde. (Z.B. durch BUSOUT oder 
BUSOPEN). 


({ row col -- ) "o-B4-at" 
positioniert den Cursor in die Zeile row und die 
Spalte col. Ein Fehler liegt vor, wenn row > 318 
(&24) oder col > 827 (&39) ist. Vergleiche AT . 


( -- row col ) "e-54-at-question" 
ermittelt die aktuelle Cursorposition und legt die 
Nummer der Zeile row und die Nummer der Spalte col 
nacheinander auf den Stack. Vergleiche AT? . 


u "oe-B4-c-r" 
ein Wagenruecklauf wird auf die Console gegeben. 
Vergleiche CR . Es wird immer die Console angespro- 
chen. Ein PAUSE wird ausgefuehrt. 


( adr lenO key -- adr leni ) "c-64-decode" 
wertet key aus, Ist key weder #B3 noch #CR „ so 
wird key in der Speicherstelle adr + lenO abge- 
legt, das Zeichen als Echo zum Ausgabegeraet ge- 
sandt und lenO inkrementiert. Im Falle von #BS 
wird das letzte Echo geloescht und lenO dekrenen- 
tiert, bei #CR wird lenO nicht veraendert und in 
die Variable SPAN kopiert. Vergleiche DECODE . Sol- 
len andere Zeichen (2. B. Cursortasten) ausgewer- 
tet werden, 30 ist ein USERdscode zu schreiben und 
in die Input-Struktur einzuhaengen. Vergleiche 
INPUT: und EDIDECODE . 


ze "o-64-del" 
ueberschreibt das Zeichen links vom Cursor mit ei- 
nem SPACE und positioniert den Cursor darauf. Ver- 
gleiche DEL . Siehe C64CR fuer weiteres Verhalten. 


(8b -- ) "o-64-emit" 
eibt 8b auf die Console aus. Alle nicht druckbaren 
(Steuer-) Zeichen werden durch einen Punkt er- 
setzt. Ea wird immer die Console angesprochen. Ein 
PAUSE wird ausgefuehrt. Vergleiche EMIT und 
OUTPUT: . 


( adr len -- ) "o-64-expect" 
erwartat len Zeichen vom Eingabegeraet, die ab adr 
im Speicher abgelegt werden. Ein Echo der Zeichen 
wird ausgegeben. CR beendet die Eingabe vorzeitig. 
Ein abschliessendes Leerzeichen wird immer auagage- 
ben. Die Laenge der empfangenen Zeichenkette wird 
in der Variablen SPAN uebergeben. Vergleiche 
EXPECT . Siehe auch EDIEXPECT . 
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c64init (--) 'c-64-init" 
initialisiert den C64. Neben der normalen Re- 
set-Initialisierung wird das basic-ROM abgeschal- 
tet, Rahmen-, Bildschirm- und Zeichenfarbe aus 
INK-POT gesetzt, Repeat fuer alle Tasten einge- 
schaltet und der Modus Gross/Kleinschrift ge- 
waehlt. C64INIT wird typisch durch COLD oder 
RESTART aufgerufen. 


c64key ( -- 8b) "o-64-key" 
wartet auf einen Tastendruck. Waehrend der Warte- 
zeit wird PAUSE ausgefuehrt, Der cbm-Code des Tas- 
tendrucks wird auf den Stack gelegt. Steuerzeichen 
werden nicht ausgewertet, sondern unveraendert ab- 
geliefert. Vergleiche KEY . 


c64key? (-?) "o-64-key-question" 
prueft, ob eine Taste gedrueckt wurde und hinter- 
laesst dann £ = TRUE , wurde kaina Taste ge- 
drueckt, sc ist ?T = FALSE . Vergleiche KEY? . 


c64page (=) “o-84A-page" 
loescht den Bildschirm und positioniert den Cursor 
in die linke obere Ecke. Vergleiche PAGE . Siehe 
CBACR fuer weiteres Verhalten. 


c64type ( adr len -- ) "e-B4-type" 
gibt den String, der im Speicher bei adr beginnt 
und die Laenge len hat, auf die Console aus. Wirkt 
immer auf die Console. Alle nicht druckbaren 
(Steuer-) Zeichen werden durch einen Punkt er- 
setzt. Ein PAUSE wird ausgefuehrt. Vergleiche 
TYPE „ OUTPUT: und C54EHIT . 


con! (8b -- ) "con-store” 
gibt Bb auf die CONsole aus. Es wird immer der 
Bildschirm angesprochen. Alle Steuerzeichen werden 
zur Console gesandt. Ein PAUSE wird ausgefuehrt. 


curoff (=) 
schaltet den Cursor aus, 


curon ee 
schaltet den Cursor ein. 


derror? (—-f?) °  "derror-question" 
prueft den Fehlerkanal des aktuellen Diskettenlauf- 
werks. Ist die Fehlernummer kleiner als S0OA (&10) 
(das heisst, kein Fehler), so ist f = FALSE . 
Liegt ein Fehler vor, so wird f = TRUE und die gan- 
za Fehlermeldung in der Form NN, Fehlertext, TT,S$ 
ausgegeben. Dabei ist NN die Fehler-Nummer, TT die 
Track- una 558 die Sektor-Nummer, bei dar der Feh- 
ler auftrat (alle Zahlen in decimal). 
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disakclose 


diskopen 


display 


index 


getker 


1/0 


index 
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Ger) "Gisk-close" 
schliesst den mit DISKOPEN eroeffneten Disketten- 
kanal wieder. DISKCLOGE ist zum Abschluss von 
DISKOPEN vorgesehen, Vergleiche READSECTOR und 
WRITESECTOR . 


(-}?) "disk-open" 
oeffnet den Disketten-Kanal $0D (&13) fuer nachfol- 
gende Lese- oder Schreib-Vorgaenge im direkten Zu- 
griff auf dis Diskette. DISKOPEN sollte die Aus- 
und Eingabe mit READSECTOR und WRITESECTOR vorbe- 
reiten. Ist das Oeffnen des Disketten-Kanals er- 
folgreich, so ist f = FALSE „ sonat ist f = TRUE . 


(32 
ein mit OUTPUT: definiertes Wort, das den Bild- 
schirm als Ausgebegeraet setzt, wenn es ausge- 
fuehrt wird. Die Worte EMIT , CR , TYPE „ DEL 
PAGE „ AT und AT? beziehen sich dann auf den Bild- 
schirn. 


( from to -- ) 
liest, unter Umgehung des BLOCK-Mechanismus, dio 
ersten Zeilen der Blocks from bis to einschliess- 
lich nach PAD und gibt sie aus. Der Bereich PAD 
bis PFAD 8100 + wird von FINDEX benutzt. FINDEX 
kann mit einer beliebigen Taste angehalten und mit 
RUN/BTOP abgebrochen werden. Vergleiche dazu 
BTOPT . Die Blook-Buffer werden nicht veraendert. 
Vergleiche auch READSECTOR . 


( -- Bb ) 
holt den cbm-Code des jeweils naechsten Tasten- 
drucks und legt ihn auf den Stack. War keine Taste 
gedrueckt, ao ist Bb = FALBE . (Vergleiche KEY?) 
GETEEY liest direkt aus dem Tastaturpuffer. 


( -- somaphoradr ) "i-o" 
ein Semaphor (Ampel) (eine spezielle Variable). 
1/0 scohustzt den seriellen Bus vor dem Zugriff 
durch andere Prozesse, wenn er von einem benutzt 
wird. lat der Inhalt von I/O FALSE ,„ zo ist der 
Weg zum seriellen Bus fusr alle Prozsesao freigege- 
ben. Alle im Syatem anthaltenen Routinen sind abge- 
sichert. Der Benutzer muss bai eigenen Routinen 
selbst fuer eine Absicherung aorgen. Vergleiche 
LOCK ,„ UNLOCK und die Beschreibung des Taskers. 


{ Zron 
liest die BLOCKs from bis to einschliesslich und 
gibt deren arste Zeilen aus. INDEX kann mit siner 
beliebigen Tazta angehalten und mit RUN/STOP abge- 
brochen werden. Vergleiche dazu 3TOP? . Die arsten 
Zailen von Screens enthalten typisch Kommentars, 
die den Inhalt charakterisieren. 
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ink-pot ( -- adr ) 
ein Byte-Feld von 3 mal 4 Byte Laenge, in denen 
fuer 3 verschiedene Zwecke (Einschalt-, Editor- 
und User-Farben) die Rahmen-, Bildschirm-, Zei- 
chen-Farbe und ein Dummy-Byte abgelegt sind. Zur 
Farbaenderung ist die gewuenschte Farb-Nummer 
(0-&15) in das entsprechende Byte zu schreiben. 


keyboard (--) 
ein mit INPUT: definiertes Wort, das als Eingabege- 
raet die Tastatur setzt. Die Worte KEY „ KEY? , 
DECODE und EXPECT beziehen sich auf die Tastatur. 
Steuerzeichen werden nicht ausgewertet. Biahe 
CBAKEY „ C64KEY? „ C6E4DECODE und C64EXPECT. mE 
gleiche INPUT: , STANDARDI/O und EDIBOARD . 


printable? (8b -- 8b) "printable" 
f ist TRUE , wenn 8b ein druckbares Zeichen ist, 
sonst ist f = FALSE . 


readsector ( adr tra# sec# -- f ) 
liest alle 8100 (&256) Bytes des Sektors sack von 
Spur tra# der Diskette im aktuellen Laufwerk usabar 
den seriellen Bus und legt sie ab adr im Speicher 
ab. War das Lesen erfolgreich, ao ist f = FALSE , 
sonst ist 2 <> FALSE und die Fehlermeldung dea 
Laufwerks wird ausgegeben. In Fehlerfall wird der 
Spelcherinhalt ab adr nicht veraendert. Der Disket- 
ten-Kanal $0D (&13) muss fuer READSECTOR offen 
sein (vergleiche DISKOPEN). 


writesector ( adr trat sec# -- f ) 
schreibt $100 (&256) Bytes, die ab adr im Speicher 
stehen, ueber den seriellen Bus in den Sektor sesf 
der Spur tra# auf der Diskette im aktuellen Lauf- 
werk. War das Schreiben erfolgreich, so ist f = 
FALSE ,„ sonst ist Z <> TALSE und die Fehlermeldung 
des Laufwerks wird ausgegeben. Der Disketten-Kanal 
#0D (&13) muss fuer WRITESECTOR offen sein (ver- 
gleiche DISKOPEN). 
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activate 


lock 


multitask 
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Multitasking Worte 


( Tadr -- usradr ) "tick-s" 

wird benutzt in der Form: 
<taskname> ’s <uname> .. 

liest den Namen einer Uservariablen <uname> und 
hinterlaeast die Adresse usradr dieser Uservari- 
able in der durch Tadr gekennzeichneten Task. 
Typisch wird Tadr durch Nennung von <taskname> er- 
seugt. Eine Fehlerbedingung liegt vor, wenn 
<uname> nicht der Name einer Uservariablen ist. 
Vergleiche USER und TASK . ’S ist fuer die Veraen- 
derung des Inhalts von User-Variablen einer Task . 
durch eine andere Task vorgesehen. 


( Tadr -- ) 
aktiviert die Task, die durch Tadr gekennzeichnet 
ist, und weckt sie auf. Tadr wird typisch durch 
Nennung eines Task-Namens erzeugt. Vergleiche 
SLEEP ,„ STOP , PASS ,„ PAUSE , UP@ ,„ UP! und WAKE . 


( semadr -- ] 
der Semaphor, dessen Adresse auf dem Stack liegt, 
wird von der Task, die LOCK ausfuehrt, blockiert. 
Dazu prueft LOCK den Inhalt von semadr. Zeigt der 
Inhalt an, dass eine andere Task den Semaphor 
blockiert hat, so wird PAUSE ausgefuehrt, bis der 
Semaphor freigegeben ist, Ist der Semaphor freige- 
geben, z0 schreibt LOCK ein Kennzeichen der Task, 
die LÜCK ausfuehrt, in den Semaphor und sperrt ihn 
danit fuer alle anderen Tasks. Den Code zwischen 
semadr LOCK ... und ... semadr UNLOCK kann also 
immer nur eine Task ausfuehren. Vergleiche UNLOCK 
und die Beschreibung dea Taskers. 


schaltet das Multitasking ein. Das Wort PAUSE ist 
nach Ausfuehrung von MULTITASK keine NOOP-Funktion 
nehr, sondern gibt die Kontrolle ueber gen Prozes- 
aor an eine andere Task weiter. 


{nO ... nar-1 Taarr —- ) 
aktiviert die Task, die durch Tadr gekennzeichnet 
ist, und weckt sie auf. Tadr wird typisch durch 
Nennung eines Task-Namens erzeugt. r gibt die An- 
zahl der Parameter nÜ bis nr-1 an, die vom Stack 
der PASS ausfuehrenden Task auf dan Stack der 
durch Tadr gekennzeichneten Task uebergeben wer- 
den. Die Parameter nÜ bis nr-1i stehen der durch 
Tadr gekennzeichneten Taak zur weiteren Verarbei- 
tung zur Verfuegung. EISERIRICHE STOP ,„ ACTIVATE , 
PAUSE ,„ UP®@ und UP! 
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pause e=%;) 

eine NOOP-Funktion,, wenn der Singletask-Betrieb 
eingeschaltet ist; bewirkt jedoch, bei aktiviertem 
Multitasking, dass die Task, die PAUSE ausfuehrt, 
die Kontrolle ueber den Prozessor an eine anders 
Task abgibt. Existiert nur eine Task, oder schla- 
fan alle anderen Tasks, au wird die Kontrolle un- 
verzueglich an die Task zurueckgegeben, die PAUSE 
ausfuehrte. Ist mindestens eine andere Task aktiv, 
ao wird die Kontrolle das Prosessors von dieser 
uebernommen und erst bei erneuter Ausfuehrung von 
PAUSE oder STOP an eine anders Task weitergegeben. 
Da die Taaks zyklisch miteinander verkettet sind, 
erhaelt die Task, die zuerst PAUSE ausfuehrte, 
irgendwann die Kontrolle zurueck. Eine Fehlerbe- 
dingung liegt vor, wenn eine Task weder PAUSE noch 
STOP ausfuehrt. Vergleiche STOP ,„ MULTITASK und 
BSINGLETASK . 


rendezvous ( semadr -- ) 
gibt den Semaphor mit der Adresse semadr frei und 
Zuehrt PAUSE aus, um andaren Tasks den Zugriff auf 
das durch diesen Semaphor geschuetzte Geraet zu er- 
moeglichen. Anschliessend wird LOCK ausgefuehrt, 
um das Geraet zurueck zu erhalten. Vergleiche LÜCK 
und UNLOCK . 


singletask (—-) 
schaltet daz Multitasking aus. Das Wort PAUSE ist 
nach Ausfuehrung von SINGLETASK eine NOOP-Funk- 
tion. Eine Fehlerbedingung liegt vor, wenn eine 
Hintergrundtask SINGLETASK ohns anschliessendes 
MULTITASK ausfuehrt, da die MAIN- oder TERMINAL- 
TASK dann nicht mehr die Kontrolle ueber den Pro- 
zessor bekommt. Vergleiche UP® und UP! . 


sleep ( Tadr -- ) 
bringt die Task, die durch Tadr gekennzeichnet 
ist, zum Schlafen. Tadr wird typisch durch Nennung 
eines Task-Namens erzeugt. BLEEF hat dan gleichen 
Effekt, wie die Ausfuehrung von STOP durch die 
Task selbst. Der Unterschied ist, dass BTOP in der 
Regel ein Endpunkt in der Bearbeitung ist, SLEEP 
trifft die Task zu einem nicht vorhersehbaren Zeit- 
punkt, ao dass die laufende Arbeit der Task unter- 
brochen wird. Vergleiche WAKE . 


stop ( --) 

bewirkt, dass die Task, die STOP ausfuehrt, sich 
schlafen legt. Der Inhalt dea IP (Interpretive 
Pointer), des RP (Returnstack Pointer) und des SP 
(Stack Pointer) werden gesichert, dann wird die 
Kontrolle ueber den Prozessor an die naechste Taak 
abgegeben. Diass Aktionen werden ebenfalls von 
PAUSE ausgefuehrt (siehe dort), der Unterschied zu 


Task 


tasks 


unlock 


upe 
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PAUSE ist, dass die Task bei 3TOP inaktiv hinter- 
lassen wird, bei PAUSE dagegen aktiv. Vergleiche 
I 


{ rlen slen -- ) 
wird benutzt in der Form: 

rlen slen Task <cococc> 
Task ist ein definierendes Wort, das eine Task - 
den Arbeitsbereich fuer ein weiteres Programm, das 
gleichzeitig zu den schon laufenden Programmen ab- 
laufen soll - einrichtet. Die Task erhaelt den 
Namen cccc, hat einen Stack von der Groesse slen 
und einen Returnstack von rlen Bytes. Im Stack-Be- 
reich liegen das task-eigene Dictionary (ein- 
schliesslich PAD), das in Richtung zu hoeheren 
Adressen waechst und der Stack, dar zu niedrigeren 
Adressen hin waechst. Im Returnstack-Bereich befin- 
den sich die task-eigene Userarea (waechst zu hoe- 
heren Adressen), und der Returnstack (wird gegen 
kleinere Adressen groesser). Eine Task ist damit 
elne verkleinertes Abbild das gesamten ultra- 
FORTH-Systens. 


Die Ausfuehrung von ooco in einer beliebigen Task 
hinterlaesst die gleiche Adresse, die die Task 
ecoco selbst mit UP@ erzeugt. Diese Adresse wird 
von ’5 ,„ ACTIVATE , LOCK „ PASS „ SLEEP „ TASK und 
WAKE benutzt, 


listet die Namen aller eingerichteten Tasks und 
zeigt, ob sie schlafen oder aktiv sind. 


{ semadr -- ) 
gibt den Semaphor, dessen Adresse auf dem Stack 
llegt, fuer alle Tasks frei. Ist der Semaphor im 
Besitz einer anderen Task, zo muss die UNLOCK ausa- 
Zusehrende Task mit PAUSE auf die Freigabe warten. 
Vergleiche LOCK und die Beschreibung daa Taskers. 


( -- Tadr ) "u-p-fetch" 
liefert die Adresse Tadr des ersten Bytes der User- 
area der Task, die UP® ausfuehrt. Tadr ist die 
Adresse, die jede Task kennzeichnet. Vergleiche 
dazu 'S „ ACTIVATE „ LOCK „ PASS „ SLEEP , TASE 
und WAKE „ In der Userarea sind Variablen und ande- 
ra Datenstrukturen hinterlegt, die jede Task fuer 
sich haben muss. Vergleiche UP! 





up! 


wake 
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( adr -- ) "u-p-store" 
richtet den UP (User Pointer) auf adr. Vergleiche 
UP@ . 


{ Tadr -- ) 
weckt die Task, die durch Tadr gekennzeichnet Ast, 
auf. Tadr wird typisch durch Nennung sinss Task-Na- 
mens erzeugt. Die Task fuehrt ihren Code dort wei- 
ter aus, wo sie durch SLEKP angehalten wurda oder 
wo sie sich selbst durch BTOP beendet hat (Vor- 
et . Vergleiche SLEEP, STOP, ACTIVATE und 
ASS . 
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Input und Output Worte 


#bs (-- n) "number-b-s" 
n ist der Wert, den man durch KEY erhaelt, wenn 
die Backspace- (Delete-) Taste gedrueckt wird. 


8er (--n) "number-c-r 
eine Konstante, die den Wert liefert, den man 


durch KEY erhaelt, wenn die Return-Taste gedrueckt 
wird. 


#tib ( -- adr ) 83 "number-t-i-b" 
eine Variable, die die Laenge des aktuellen Textes 
im Text-Eingabe-Puffer haselt. Vergleiche TIB . 


-trailing ( adr +n0-- adr +ni1 ) B3 "dash-trailing" 
adr ist die Anfangsadresse und +nO die Laenge ei- 
nes Strings. -TRAILING veraendert +nO so zu *+ni, 
dass eventuell abschliessende Leerzeichen nicht 
mehr in der neuen Stringlaenge +n1 enthalten sind. 
Der String selbst bleibt DHungSkanLer. Ist 
+nO = O0, so ist auch *#ni 0. Besteht der ganze 
String aus Leerzeichen, so ist +ni1 = 0. 


(n--) 63 "dot" 
druckt n vorzeichenbehaftet aua. 
(me ) 83 I C "dot-quote" 
(--) compiling 
wird in :-Definitionen In der Form verwendet: 
<name> ... ."” ccce" 


Der String ccocco wird bis zum abachliansendan “80 
compiliert, dass bei Ausfuehrung von <name> der 
String cocc ausgedruckt wird. Daa Leerzeichen nach 

"“ und das abschliessende " sind Pflicht und gehoe- 
ren nicht zum String. 


A| (--) 83 I "dot-paren" 
(==) compiling 
wird in der Form: 
.( ccce) ... 


benutzt und druckt den String cocce bis zur ab- 
schliessaenden Klammer sofort aus. Daa Leerzeichen 
nach .( und die schliessende Klammer sind Pflicht 
und gehoeren nicht zum String. 


.r (n+tn - ) "dot-r" 
druckt die Zahl n in einem +n langen Feld mit Vor- 
zeichen rechtsbuendig aus. Reicht +n nicht zur Dar- 
stellung der Zahl aus, so wird ueber dan rechten 
Rand hinaus ausgegeben. Die Zahl n wird in jedem 
Fall vollstaendig dargestellt. 


>tib 


at 


at? 


base 


bl 


e/l 


col 
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(-- adr ) 83 "to-tib" 
adr ist die Adresse eines Zeigers auf den Text-Ein- 
gabe-Puffer. Siehe TIB . 


6 ==) "aquestion-c-r" 
prueft, ob in der aktuellen Zeile mehr als C/L - 
$0A (&10) Zeichen ausgegeben wurden und fuehrt 
dann CR aus, 


( row col -- ) 
positioniert die Schreibstelle eines Ausgabegerae- 
tes in die Zeile row und die Spalte col. AT ist ei- 
nes der ueber OUTPUT vektorisierten Worte. 


( -- row col ) "at-question"” 
ermittelt die aktuelle Position der Schreibstelle 
eines Ausgabe-Geraetes und legt Zeilen- und Spal- 
tennummer auf den Stack. Eines der OUTPUT-Worte. 


{ -- adr ) 83 U 
adr ist die Adresse einer Uservariablen, die die 
Zahlenbasis enthaelt, die zur Wandlung von Zah- 
len-Ein- und Ausgaben benutzt wird. 


(-- 16b ) "b-1" 
16b ist der ASCII-Wert fuer dam Leerzeichen. 


[| #> +) "characters-per-line" 
+tn ist die Anzahl der Zeichen pro Bildschirm-Zei- 
le, 


(-u) : 
u ist die Spalte in der die Schreibstelle eines 


Ausgabe-Gerastes sich gerade befindet. Vergleiche 
ROW und AT? . 


=, 83 "c-r" 
bewirkt, dass die Schreibstelle eines Ausgabe-Ge- 
raetes an den Anfang der naechsten Zeile verlegt 
wird. Eines der OUTPUT-Wortae. 


(d--) “d4-dot“ 
druckt d vorzeichenbehaftet aus. 


(d+tn--) "d-dot-r" 
druckt d vorzeichenbehaftet in einem +n Zeichen 
breiten Feld rechtsbuendig aus. Reicht +n nicht 
zur Darstellung der Zahl aus, so wird ueber den 
rechten Rand hinaus ausgegeben. Die Zahl d wird in 
jedem Fall vollstaendig dargestellt. 
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decimal ( -- 


) 
stellt BASE auf 90A (&10) ein. Alle Zahlenein- und 
Ausgaben erfolgen im dezimalen Zahlensysten. 


decode ( adr +tnO key -- adr +ni ) 
wertet key aus. Typisch werden normale druckbare 
ASCII-Zeichen in die Speicherstelle adr + +n0 
uebertragen, als Echo zum Ausgabegeraet gesandt 
und +nO inkrementiert. Andere Zeichen (#BS, SCR, 
Steuercodes) koennen andere Aktionen zur Folge ha- 
ben, Eines der ueber INPUT vektorisierten Worte. 
Vergleiche C6ADECODE . Wird von EXPECT benutzt. 


del (--) 
loescht das letzte ausgesandte Zeichen. Eins der 


OUTPUT-Worte. Bei Druckern ist die korrekte Funk- 
tion nicht garantiert. 


emit ( 18b -- ) 


83 
die unteren 7 Bit (commodore - Benutzer: Achtung: 
die unteren 8 Bit) werden ausgegeben. Ist das Zeti- 
chen nicht druckbar, (insbesondere alle Steuerco- 
des) zo wird stattdessen ein ".” ausgegeben. Eines 
dea OUTPUT-Worte. 


expect ( ade +n -- ) 83 
empfaengt Zeichen und speichert sie im Speicher. 
Die Uebertragung beginnt bei adr und setzt sich zu 
hoeheren Adressen fort, bis ein Return erkannt 
oder +n Zeichen uebertragen sind. Ein Return wird 
nicht mit abgespeichert. Wenn +n = 0 ist, mo war- 
den keine Zeichen uebertragen. Alle empfangenen 2- 
eichen warden als Echo, statt des Return wird ein 
Leerzeichen ausgegeben. Vergleiche SPAN . Eines 
der ueber INPUT vektorisierten Worte. 


hex (--) 


stellt BASE auf $10 (&16) ein. Alle Zahlenein- und 
Ausgaben erfolgen im hexadezimalen Zahlensystem. 


input ( -- adr ) U 
adr ist die Adresse einer Uservariablen, dis einen 
Zeiger auf ein Feld von (zur Zeit) 4 Kompila- 
tions-Adressen enthaelt, die fuer ein Eingabe-Ge- 
rast die Funktionen KEY KEY? DECODE und EXPECT 
realisieren. Vergleiche die gesonderte Beschrei- 
bung der INPUT- und OUTPUT-Struktur. 


key ( -- 16b ) 83 
emnpfaengt ein Zeichen von einem Eingabe-Geraet. 
Die niederwertigen 7 Bit (commodore B Bit) enthal- 
ten den ASCII- (commodore-) Code des zuletzt en- 
pfangenen Zeichens. Alle gueltigen ASCII- (commo- 
dore-) Codes kosnnan empfangen werden. Steuerzei- 
chen werden nicht ausgewertet, sondern so, wie ste 


key? 


list 


1/s 


output 


Dage 


query 


row 


BPAace 


apacas 
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sind, abgeliefert. Es wird kein Echo ausgesandt. 
KEY wartet, bis tatsaechlich ein Zeichen empfangen 
wurde. Eines der INPUT-Worte. 





( -- flag ) "key-question” 
flag ist TRUE, wenn ein Zeichen zur Eingabe bereit- 
steht, sonst ist flag FALSE . Eins der INPUT-Wor- 
te. 


(u) 83 
zeigt den Inhalt des Screens u. SCH wird auf? u ge- 
setzt. Siehe BLOCK. 


( -- +2) "lines-per-screen" 
tn ist die Anzahl der Zeilen pro Bildschirmseite. 


I -- adr U 
adr ist dia Adresse einer Uservariablen, die sinen 
Zeiger auf ein Feld von (zur Zeit) 7 Kompila- 
tions-Adressen enthaelt, die fuer ein Ausgabe-Ge- 
rast die Funktionen EMIT , CR „ TYPE ,„ DEL , P- 
AGE „ AT und AT? realisieren. Vergleiche die geson- 
derte Beschreibung der INPUT- und OUTPUT-Struktur. 


( ) 
bewirkt, dass die Schreibstelle eines Ausgabege- 
raetes auf eine leere naua Baita bewegt wird. Ver- 
gleiche C64PAGE. Eines der OUTPUT-Worte. 


(: = 33 

Zeichen werden von einem Eingabe-Geraet geholt und 
in den Text-Eingabe-Puffer, der bei TIB beginnt, 
uebertragen. Dia Uebertragung endet beim Enfang 
von Return oder wann die Laenge des Text-Einga- 
be-Puffers erreicht ist. Die Werte von >IN und BLE 
werden auf O gesetzt und SPAN wird nach #TIB ko- 
piert. Um Text aus dem Puffer zu lesen, kann WORD 
benutzt werden. Siehe EXPECT und "Quelltext". 


(3) 5 
n ist die Zeile, in der die Schreibstelle eines 


Ausgabe-Geraetes sich gerade befindet. Vergleiche 
COL und AT? . 


er 83 
sendet ein Leerzeichen 'an das Ausgabe-Geraet. 


(tn --) 53 
sendet +n Leerzeichen an ein Ausgabe-Geraet. Ist 
+n = 0, sa wird nichts ausgesandt. 
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apan ( -- adr ) 53 
der Inhalt der Variablen SPAN gibt an, wieviele 


Zeichen vom letzten EXPECT uebertragen wurden. Sie- 
he EXPECT . 


standardi/o ( -- ) "standard-1-0" 
stellt sicher, dass die beim letzten SAVE bestimn- 


ten Ein- und Ausgabegeraete wieder eingestellt 
sind. 


stop? ( -- flag ) "stop-question" 
steht vom Eingabe-Geraet ein Zeichen zur Verfue- 
gung, 30 wird ea geholt. Ist ea #CR (commodore 
RUN/STOP bzw. Ctrl-C), zo ist flag = TRUE, sonst 
wird auf das naechste Zeichen gewartet. Ist dieses 
Jetzt = #CK (RUN/STOP) ao wird STOP? mit TRUE ver- 
lassen, sonst mit FALSE . 


tib ( -- adr ) 3 "tib” 
liefert die Adresse des Text-Eingabe-Puffers. Er 
wird benutzt, um die Zeichen vom Quelltext des ak- 
tiven Eingabe-Geraetes zu halten. Er kann mindes- 
tens 350 (&80) Zeichen aufnehmen. Siehe >TIB . 


type ( adr *+n -- ) 83 
sendet +tn Zeichen, die ab adr im Speicher abgelegt 
sind, an das aktive Ausgabegeraet. Ist +n = 0, a0 
wird nichts ausgegeben. 


u. (u--) “ua-dot“ 
dia Zahl u wird vorzeichenlos ausgedruckt. 


u.r (utm-) "a-dot-r" 
druckt die Zahl u in einem +n langen Feld ohne Vor- 
zeichen rechtsbuendig aus. Reicht +n nicht zur Dar- 
stellung der Zahl aus, so wird usber dan rechten 
Rand hinaus ausgegeben. Die Zahl u wird in jedem 
Fall vollstaendig dargestellt. 
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Ergänzungen / Berichtigungen des Glossars 


Im folgenden werden Änderungen und Ergänzungen des Glossars 
zusammengefaßt. Hierbei wurden außer Worten des Forth-Kerns 
auch einige andere - im Lieferumfang enthaltene - Worte 
mitaufgenommen, um die Übersicht zu verbessern. 

Vergleiche hierzu auch "Änderungen seit rev, 3.5" 


Nachtrag 


Create (--) 83 
Ein definierendes Wort, das in der Porm 
Create (name> 

benutzt wird. Es erzeugt einen Kopf für <name>. Die 
nächste freie Stelle im Dictionary (vergleiche HERE 
und DP ) ist nach seinem CREATE <nane)> das erste 
Byte des Parameterfeldes von <name)>. Wenn <(nane> 
ausgeführt wird, legt es die Adresse seines Parane- 
terfeldes auf den Stack. CREATE reserviert keinen 
Speicherplatz im Parameterfeld von <name>. 


Das Verhalten von <(name> kann mit DOES> verändert 
werden. 


Create: (rs) 
Ein definierendes Wort, das in der Form 
Create: <name> .. ; 
benutzt wird. Ea wirkt wie : mit der Ausnahme, daß 
bei Ausführung von <name> die Parameterfeldadresse 
von <name> auf den Stack gebracht, das Wort jedoch 
nicht ausgeführt wird. 


exit (-) 83,C 
wird in einer :-Definition benutzt. Bei Ausführung 
von EXIT wird in das diese :-Definition aufrufende 
Wort zurückgekehrt. Eine Fehlerbedingung besteht, 
wenn das oberste Element des Returnstacks keine 
Rückkehradresse enthält. EXIT darf nicht innerhalb 
von DO .. LOOP verwendet werden. 


order ( =.) 
Bei Aufruf wird dis aktuelle Suchreihenfolge (s. 
"Definition der Begriffe”) ausgegaben. Anschließend 
wird dus Vokabular ausgegeben, in das neue Worte 
eingetragen werden. 





cpush 


debug 


endloop 


nest 


trace' 


unnest 


unbug 


Tools 


(adru-- ) 
Es werden analog PUSH u bytes ab inclusive adr 


gesichert. Beim nächsten EXIT oder UNNEST werden 
sie zurückgespeichert. 


(--) 
Benutzt in der Form: 
debug ‘nane> 
Hierbei ist <name> ein ausführbares Wort. Aktiviert 
den Tracer, so daß das Wort «name> schrittweise 
ausgeführt wird. 


(--) 
Deaktiviert den Tracer für das angezeigte Wort; er 
bleibt jedoch für alle folgenden Worte aktiv. Ist das 
angezeigte Wort iLOOP oder (+LOOP oder sin von 
REPEAT oder UNTIL kompilierter Sprung, ao kann damit 


das (wiederholte) Tracan der Schleife unterdrückt 
werden. 


(—-) 
Weist den Tracer an, das angezeigte Wort ebenfalls zu 
tracen. 


(--) 
Benutzt in der Forum: 
Trace' <name> 
Wirkt wie DEBUG <name> „ zusätzlich wird jedoch das 
zu tracende Wort anschließend ausgeführt. 


(--) 
Weist den Tracer an, das getracsete Wort zuenda auszu- 


führen und erst ab dan aufrufsnden Wort wieder zu 
tracen. 


(-) S 
Deaktiviert den Tracer. Die Ausführung wird fortge- 
setzt. 
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(rd 


.rd 


T>C 


autoload 


binary 


bload 


bsave 


a>7 


icı (si vwp/hasretur 


Kassettenversion 


0) ! 
Benutzt in der Form 
\IF <name)> worte) .. 
Wenn <name> in der aktuellen Suchreihenfolge gefunden 
wird, werden die folganden Worte bis zum Zeilenwech- 


sel ausgeführt, sonst geschieht nichts. Gegenstück zu 
\NnB8bs 


( --adr ) 

adr ist die Adresse einer Variablen, die die An- 
fangsadresse der aktuellen Ramdisk enthält bzw. O0 
wenn explizit keine Ramdisk existiert. Zum Format der 
Randiak vgl. die Shadows des Quelltextes. Vgl. auch 
RD 


(-) 
Druckt zentrale Informationen über die Randisk aus. 


( 8b--7b) "seven-to-char 
Zur Rück-Umwandlung von mit cC>7 erzeugten 7-bit- 
Buchstaben in Buchstaben, Funktioniert nur für den 
von ultraFORTH benutzten Zeichensatz sicher. 


{ --adr) 
adr ist die Adresse einer Variablen. Ist sie ungleich 
0, so wird beim nächsten TAPEINIT eine Ramdisk 
geladen. Wird i.a. nur vor SAVEBYSTEN benutzt. 


(u-u) 
u ist die BiockNummer eines Blockes, der nicht 
konprimiert werden soll. Dies ist für binäre Ranm- 
disk-Blöcke erforderlich, da sie sonst verändert 


würden. Der Block belegt ab Deklaration ca. 1024 
Bytes. 


( adri adr3 8b-- adr2) 

Ab adri wird ein File mit dem 8b langen Nanen, der 
ab adr3 im Speicher ahgelegt ist, vom mit device 
gesetzten Gerät gelesen. Diverse Fehlerbedingungen 
warden behandelt. adr2 ist die Endadresse des gela- 
denen Files plus 1 . Beim C16/C64 hat der Benutzer 
bei allen Lade-Operationen Sorge zu tragen, daß genug 
Platz vorhanden ist, sonst folgen undefinierte Resul- 
tate. (System-Absturz) 


( adri adr2 adr3 8b--) 
Der Bereich von adri1 bis exklusive adr2 wird mit dem 
8b langen Namen, der ab adr3 im Speicher abgelegt 
ist, auf das mit device gesetzte Gerät geschrieben. 
Diverse Fehlerbedingungen werden behandelt. 


[ 8b--7b) "char-to-seven" 
Zur Umwandlung von Buchstaben in 7-bit-Buchstaben. 
Die Zurückverwandlung mit T7>C £unktioniert nur für 
den von ultraFORTH benutzten Zeichensatz sicher. 
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cload 


commodore 


compre88 


EBRVe 


derr? 


device 


expand 


£loppy 


iq" 
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{ adri adr3 Ab ul--adr2 u2 ) 
Lädt ab adrı das File mit dem 8b langen Namen, der 


-bei adr3 steht von dem Gerät der Hunner ul. u 


enthält beim C16/C64 im unteren Byte die Geräte- 
Nunner und im oberen Byte die Sekundäradress 
(i.a.=0). adr2 ist die Endadresse+ti1 des geladenen 
Files. u2 ist eine Fehlerbeschreibung, dia zum Aufruf 
von DERR? benutzt werden sollte. Beim C16/C64 hat 
der Benutzer bei allen Lade-Operationen Sorge Zu 
tragen, daß genug Platz vorhanden ist. Sonst folgen 
undefinierte Resultate. (System-Absturz) 


(--) 
Setzt den Kassettenrekorder im Commodore-Format als 


aktuelles Ausgabegerät. Vgl.: DEVICE SUPERTAFZ 
FLOPPY 


( adri adr2 ul--u2 } 
Zum Komprimieren von Forth-Quelltexten. Beginnend bei 
adri werden ul Bytes zur adr2 komprimiert. Die Länge 
des komprimierten Bereichs ist u2 . Sie beträgt ca. 
30-50% der ursprünglichen Länge. Vgl.: EXPAND 


( adri adr2 adr3 8b ul--u2 ) 
Sichert den Speicherbereich von adr1 bis exklusive 
adr2 unter dem 8b langen Namen, der bai adr3 steht 
auf das Gerät der Nummer ul. ul enthält beim C16/C64 
im unteren Byte die Geräte-Numnmer und im oberen Byte 
die Sekundäradresse (i.a.=0). u2 ist eine Fehlerbe- 


schreibung, die zum Aufruf von DEREK? benutzt werden 
sollte. 


( u=--flag ) 
Wird nach CLOAD und CESAVE benutzt. Falls ein 
Fehler aufgetreten ist, gibt ss eine u entsprechende 


Fehlermeldung aum. flag ist true, wenn ein Febler 
aufgetreten ist, sonst false. 


( --adr) 
adr ist die Adresse einer Variablen, die im nieder- 
wertigen Byte die Geräte-Nunner des aktuellen Gerätes 
enthält und im höherwertigen Byte die Sekundäradresse 
(1.2.=20). Vgl.: COMMODORE SUPERTAPE FLOPPY 


({ adri adrä ul--u2 ) 
Zum Expandieren von konprimierten Forth-Quelltexten. 
Beginnend bei adrl werden ul Bytes zur adr? 


expandiert. Die Länge das expandierten Bereichs wird 
in u2 zurückgegeben. Vgl.: COMPRESS 


(==) 
Setzt das Diskettenlaufwerk als aktuelles Ausgabege- 
rät. Vgl.: DEVICE COMMODORE ZUPERTAFPE 


(--) 
Benutzt in der Form 
: id" ccc" 
Setzt den Namen der aktuellen Ramdisk auf RD.ccc 
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loadramdisk e—-;, 


memtop 


ramdisk 


ramRr/W 


rd 


rächeck 


rddel 


rdnew 


rduse 


restore” 


Es wird eine neue Ramdisk eingerichtet und von 
aktuellen Gerät geladen. Beim C16/C64 hat der Benut- 
zer bei allen Lade-Operationen Sorge zu tragen, daß 
genug Platz vorhanden ist. Sonst folgen undefinierte 
Resultate. (System-Absturz) 


( -- adır ) 


adr ist dia erste Adresse oberhalb das verfügbaren 
RAM-Bereiches. Sie ist systemabhängig. 


( --adr üb ) 
Ist identisch der Sequenz 
Ascii " parse 
Der Quelltext bis inklusive dem nächsten " wird nicht 
ausgeführt, sondern als Zeichenkette verstanden. Sie 
beginnt bai der Adresse adr und ist 8b Bytes lang. 


Ein Vokabular, in sich Worte Asr Ramdisk befinden. 


( adri u adr2 flag--flag ) 
R/W wird bei Benutzung der Ramdisk auf RANR/W 
gesetzt. Dadurch wird bei Blockzugriffen auf Drive 0 
weiterhin auf ein Diskettenlaufwerk zugegriffen, 
Blockzugriffe auf Drive 1 und folgende werden Jedoch 
auf dio aktuelle Remdisk umgeleitet. Zur Benutzung 
der Ramdisk vgl.: DRIVE >DRIVE DRV? COrFY CONVEYT 


--sär ) 

adr ist die Anfangsadresse der aktuellen Ramdisk. 
Wenn keine gültige Ramdisk eingerichtet ist, wird 
eine FPFehlerbehandlung eingeleitet. Zum Format der 
Ramdimk vgl. die Shadows des Quelltext. Vgl. auch {RD 


vv) 
Druckt Informationen Über die Ramdisk aus und prüft 
die zentralen Zeiger. 


(=>) 
Löscht alla Bidöcka der aktuellen kamdisk. 


{ adri adr2-- ) 
Richtet eine neue Ramdisk von adri bis maximal 
adr2-1 sin und satzt sie als die aktuelle. Eins 
Fehlerbedingung liegt vor, wenn der Speicherbereich 
von adri bis adr2 bereits andars belegt ist. 


( adr-- ) 
Erklärt die Raemdisk ab adr zur aktuellen. Eine 


Fehlerbedingung liegt vor, wenn adr nicht die 
Anfangsadresse siner Ramdink ist. 


| 2} 
Wirkt wie ABORT" „ mit der Ausnahme, daß vorher nit 
BTORE gesicherte Bereiche zurückgespeichert warden. 





ne 


saveramdisk (-) 


store 


supertape 


tapeinit 


Dia aktuelle Ramdisk wird auf das aktuelle Gerät 
gesichert. Eine Fehlerbedingung liegt vor, wenn keine 
Ramdisk eingerichtet war. 


(adr -- ) 
Wirkt wie PUSH, mit der Ausnahme, daß bei einen 


anschließenden RESTORE" der gesicherte Bereich zu- 
zückgespeichert wird. Ä 


(| — 


Setzt den Kassettenrekorder in. Supertape-Format als 
aktuelles Ausgabegerät. Supertape ist eine Schnell- 
Lade-Routine, die von der Zeitschrift "c't" für alle 
gängigen Mikro-Rechner angeboten wird. Wir danken 
dem Heise-Verlag für die freundliche Genehmigung, es 
in ultraFORTEB3 integrieren und weiterverbreiten zu 
dürfen. Vgl.: DEVICE COMMODORE : FLOPPY 


Initialisiert die Kassettenversion. Wenn autoload un- 
gleich 0 ist, wird eine Ramdisk geladen. Wird im 
allgemeinen als "RESTART installiert. 
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Massenspeicher-Utilities 


2disk1551 =, 
Sendet beim C16 einen Befehl über den Bus, der ein 
anwesendes Diskettenlaufwerk 1551 auf Unit 9 
umstellt. Alle nicht gemeinten Laufwerke sind vorher 
auszuschalten. 


bamallocate (-) 
Kennzeichnet alle Sektoren einer Diskette als belegt. 


copy2disk (-) 
Kopiert eine Diskette von einem Laufwerk auf ein 
anderes. Die Directory wird mitkoplert, daher auch 
für Files zu verwenden. 


copydisk (ul u2 u3 — )} 
Kopiert die Blöcke ul bis u2 einer Diskette ab Block 
u3 auf dia andere Diskette. 


fornatdisk (—-) 
Fornatiert eine Diskette für die Benutzung unter 
ultraFORTHA83. Beim C16/C64 benutzt in der Form: 
formatdisk [<name>, [tid>]] 
Neues Disketten müssen mit ‚[<id>]) formatiert werden. 
Beispiel: 
formatdisk hallo, xx 


savesysten (—-) 
Benutzt in der Foru 
savesystern {nama)> 

Das ultraFPORTH-Systen wird bis HERE auf einen 
axzternen Massenspeicher gesichert. Vorher wird ss in 
den Zustand versetzt, in dam es bein nächsten Kalt- 
start sein soll. Insbsaonders werden die aktuellen 
Parameter won Uservariablen in den User-Kaltstart- 
Bereich kopiert. Nicht gesichert werden Blockpuffer. 
S.a. "Erstellen eines eigenen Arbeitssystens". 
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Entscheidungskriterien 


Bei Konflikten laesst sich das Standardteam von folgenden 
Kriterien in Reihenfolge ihrer Wichtigkeit leiten: 


L; 


Korrekte Funktion - bekannte REinschraenkungen , Eindeutigkeit 


2. Transportabilitaet - wiederholbare Ergebnisse, wenn 
Programme zwischen Standardsystemen portiert werden 


3. Einfachheit 

4. Klare, eindeutige Namen - die Benutzung beschreibender 
statt funktionaler Namen, zB [COMPILE] statt ’c., und ALLOT 
statt dp+! 

5. Allgemeinheit 

6. Ausfuehrungsgeschwindigkeit 

7. Kompaktheit 

8. Könsiiationsgesänitindsakeit 

9. Historische Kontinuitaet 

10. Aussprechbarkeit 

ll. Verstaendlichkeit - ss muss einfach gelehrt werden koennen 
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Adresse, Byte (address, byte) 

Adresse, Kompilation (address, compilation) 
Adresse, Natuerliche (address, native machine) 
Adresse, Parameterfeld (address, parameter field) ""apf"" 
anzeigen (display) 

Arithmetik, 2er-komplement (arithmetic, two's complement) 
Block (block) 

Blockpuffer (block buffer) 

Byte (byte) 

Kompilation (compilation) 

Definition (Definition) 

Dictionary (Woerterbuch) 

Division, floored (division, floored) 

Empfangen (receive) 

Falsch (false) 

Fehlerbedingung (error condition) 

Flag (logischer Wert) 

Floor, arithmetic 

Glossar (glossary) 

Interpreter, Adressen (interpreter, address) 
Interpreter, Text (interpreter, text) 
Kontrollstrukturen (structure, ) 

laden (load) 

Massenspeicher (mass storage) 

Programm (program) 

Quelltext (input stream) 

Rekursion (recursion) 

Screen (Bildschirm) 

Suchreihenfolge (search order) 

stack, data (Datenstapel) 

stack, return (Ruecksprungstapel) 

String, counted (abgezaehlte Zeichenkette) 
String, Text (Zeichenkette) 

Userarea (Benutzerbereich) 

Uservariable (Benutzervariable) 

Vokabular (vocabulary) 

Vokabular, Kompilation (vocabulary, compilation) 
Wahr (true) 

Wort, Definierendes (defining word) 

Wort, immediate (immediate word) 

Wortdefinition (word definition) 

Wortname (word name) 

Zahl (number) 

Zahlenausgabe, bildhaft (pictured numeric output) 
Zahlenausgabe, freiformatiert (free field format) 
Zahlentypen (number types) 

Zahlenumwandlung (number conversion) 

Zeichen (character) 

Zustand (mode) 
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Definition der Begriffe 


Es werden im allgemeinen die amerikanischen Begriffe 
beibehalten, es sei denn, der Begriff ist bereits gelauefig. 
Wird ein deutscher Begriff verwendet, so wird in Klammern der 
engl. Originalbegriff beigefuegt; wird der Originalbegriff 
beibehalten, so wird in Klammern eine moeglichst treffende 
Vebersetzung angegeben. 


Adresse, Byte (address, byte) 
Eine 16bit Zahl ohne Vorzeichen, die den Ort eines 8bit 
Bytes im Bereich <0...65,535> angibt. Adressen werden wie, 
Zahlen ohne Vorzeichen manipuliert. 
Siehe: "Arithmetik, 2er-komplement" 


Adresse, Kompilation (address, compilation) 
Der Zahlenwert, der zur Identifikation eines Forth Wortes 
kompiliert wird. Der Adressinterpreter benutzt diesen 


Wert, um den zu jedem Wort gehoerigen Maschinencode 
aufzufinden. 


Adresse, Natuerliche (address, native machine) 
Die vorgegebene Adressdarstellung der Computerhardware. 


Adresse, Parameterfeld (address, parameter field) ""apf"" 
Die Adresse des ersten Bytes jedes Wortes, das fuer das 
Ablegen von Kompilationsadressen ( bei :-definitionen ) 
oder numerischen Daten bzw. Textstrings usw. benutzt wird. 


anzeigen (display) 
Der Prozess, .ein oder mehrere Zeichen zum aktuellen 
Ausgabegeraet zu senden. Diese Zeichen werden 


normalerweise auf einem Monitor angezeigt bzw. auf einem 
Drucker gedruckt. 


Arithmetik, Zer-komplement (arithmetic, two’s complement) 
Die Arithmetik arbeitet mit Zahlen in 
Zer-komplementdarstellung; diese Zahlen sind, je nach 
Operation, 16bit oder 32bit weit. Addition und Subtraktion 
von Z2er-komplementzahlen ignorieren Ueberlaufsituationen, 
Dadurch ist es moeglich, dass die gleichen Operatoren 
benutzt werden koennen, gleichgueltig, ob man die Zahl mit 
Vorzeichen (<-32,768...32,767> bei 16bit) oder ohne 
Vorzeichen (<0...65,535> bei 16bit) benutzt. 


Block (block) 


Die 1024byte Daten des Massenspeichers, auf die ueber 
Blocknummern im Bereich <0...Anzahl_existenter_Bloecke-1> 
zugegriffen wird. Die exakte Anzahl der Bytes, die je 
Zugriff auf den Massenspeicher uebertragen werden, und die 
Vebersetzung von Blocknummern in die zugehoerige Adresse 
des Laufwerks und des physikalischen Satzes, sind 
rechnerabhaengig. 

Siehe: "Blockpuffer" und "Massenspeicher" 
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Blockpuffer (block buffer) 


Ein 1024byte langer Hauptspeicherbereich, in dem ein Block 
voruebergehend benutzbar ist. Ein Block ist in hoechstens 
einem Blockpuffer enthalten. 


Byte (byte) 


Eine Einheit von 8bit. Bei Speichern ist es die 
Speicherkapazitaet von &bits. 


Rompilation (compilation) 


Der Prozess, den Quelltext in eine interne Form 
umzuwandeln, die spaeter ausgefuehrt werden kann. Wenn 
sich das System im Kompilationszustand befindet, werden 
die Kompilationsadressen von Worten im Dictionary 
abgelegt, so dass sie spaeter vom Adresseninterpreter 
ausgefuehrt werden koennen. Zahlen werden so kompiliert, 
dass sie bei Ausfuehrung auf den Stack gelegt werden. 
Zahlen werden aus dem Quelltext ohne oder mit negativem 
Vorzeichen akzeptiert und gemasas dem Wert von BASE 
umgewandelt. 

Siehe: "Zahl", "Zahlenumwandlung", "Interpreter, Text" und 
"Zustand" 


Definition (Definition) 


Siehe: "Wortdefinition" 


Dictionary (Woerterbuch) 


Eine Struktur von Wortdefinitionen, die im Hauptspeicher 
des Rechners angelegt ist. Sie ist erweiterbar und waechst 
in Richtung hoeherer Speicheradressen. Eintraege sind in 
Vokabularen organisiert, so dass die Benutzung von 
Synonymen moeglich ist, d.h. gleiche Namen koennen, in 
verschiedenen Vokabularen enthalten, vollkommen 
verschiedene Funktionen ausloesen. 

Siehe: "Suchreihenfolge“ 


Division, floored (division, floored) 


Ganzzahlige Division, bei der der Rest das gleiche 
Vorzeichen hat wie der Divisor oder gleich Null ist; der 
Quotient wird gegen die naechstkleinere ganze Zahl 
gerundet. 

Bemerkung: Ausgenommen von Fehlern durch Ueberlauf gilt: 
Ni NZ2 SWAP OVER /MOD ROT * + ist identisch mit NI. 
Siehe: "floor, arithmetisch" 


Beispiele: Dividend Divisor Rest Quotient 
10 7 3 1 
-10 T 4 -2 
10 -7 -4 -2 
-10 -7 -3 1 


Empfangen (receive) 


Der Prozess, der darin besteht, ein Zeichen von der 
aktuellen Eingabeeinheit zu empfangen. Die Anwahl einer 
Einheit ist rechnerabhaengig. 
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Falsch (false) 


Die Zahl Null repraesentiert den "Falschzustand” eines 
Flags. 


Fehlerbedingung (error condition) 
Rine Ausnahmesituation, in der ein Systemverhalten 
erfolgt, das nicht mit der erwarteten Funktion 
uebereinstimmt. Im der Beschreibung der einzelnen Worte 
sind die moeglichen Fehlerbedingungen und das 
dazugehoerige Systemverhalten beschrieben. 


Flag (logischer Wert) 
Eine Zahl, die eine von zwei moeglichen Werten hat, falsch 
oder wahr. 
Siehe: "Falsch" "Wahr" 


Floor, arithmetic 
Z sei eine reelle Zahl. Dann ist der Fioor von Z die 
groesste ganze Zahl, die kleiner oder gleich 2 ist. 
Der Floor von +0,86 ist 0 
Der Floor von -0,4 ist -1 


Glossar (glossary) 
Eine umgangssprachliche Beschreibung, die die zu einer 
Wortdefinition gehoerende Aktion das Computers beschreibt 
- die Beschreibung der Semantik des Wortes. 


Interpreter, Adressen (interpreter, address) 
Die Maschinencodeinstruktionen, die die kompilierten 
Wortdefinitionen ausfuehren, die aus Kompilationsadressen 
bestehen, 


Interpreter, Text (interpreter, text) 
Rine Wortdefinition, die immer wieder einen Wortnamen aus 
dem Quelltext holt, die zugehoserige Kompilationsadresse 
bestimmt und diese durch den Adressinterpreter ausfuehren 
laesst. Quelltext, der als Zahl interpretiert wird, 
hinterlaesst den entsprechenden Wert auf dem Stack. 
Siehe: ManlSsnUnWandTung- 


Kontrölletrikkuren (structure, control) 
Eine Gruppe von Worten, die, wenn sie ausgefuehrt werden, 
den Programmfluss veraendern. 
Beispiele von Kontrollstrukturen sind: 


DO ... LOOP 
BEGIN ... WHILE ... REPEAT 
IF ... ELSE ... THEN 


laden (load) 
Das Umschalten des elitexiss zum Massenspeicher. Dies 
ist die uebliche Methode, dem Dictionary nmwua Definitionen 
hinzuzufuegen. 


Massenspeicher (mass storage) 
Speicher, der ausserhalb des durch FORTH adressierbaren 
Bereiches liegen kann. Auf dan Massenspeicher wird in Form 
von 1024byte arosasen Bloecken zugegriffen. Auf einen Block 
kann innerhalb des Forth-Adressbereichs in einen 
Blockpuffer zugegriffen werden. Wenn ein Block als 
veraendert (UPDATE) gekennzeichnet ist, wird ar 
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letztendlich wieder auf den Massenspeicher 
zurueckgeschrieben. 


Programm (program) 
Eine vollstaendige Ablaufbeschreibung in FORTH-Quelltext, 
um eine bestimmte Funktion zu realisieren. 


Quelltext (input stream) 
Eine Folge von Zeichen, die dem Systen zur Bearbeitung 
durch den Textinterpreter zugefuehrt wird. Der Quelltext 
kommt ueblicherweise von der aktuellen Eingabeeinheit 
(ueber den Texteingabepuffer) oder dem Massenspeicher 
(ueber einen Blockpuffer). BLK, >IN, TIB und &$TIB 
charakterisieren den Quelltext. Worte, die BLK, >IN, TiB 
oder #TIB benutzen und/oder veraendern, sind dafuer 
verantwortlich, die Kontrolle des Quelltextes 
aufrechtzuerhalten oder wiederherzustellen. 
Der Quelltext reicht von der Stelle, die durch den 
Relativzeiger >IN angegeben wird, bis zum Ende. Wenn BLK 
Null ist, so befindet sich der Quelltext an der Stelle, 
die durch TIB adressiert wird, und er ist #TIB Bytes lang. 
Wenn BLK ungleich Null ist, so ist der Quelltext der 
Inhalt des Blockpuffers, der durch BLK angegeben ist, und 
er ist 1024byte lang. 


Rekursion (recursion) 
Der Prozess der direkten oder indirekten Selbstreferenz. 


Screen (Bildschirm) 
Ein Screen sind Textdaten, die zum Editieren aufbereitet 
sind. Nach Konvention besteht ein Screen aus 16 Zeilen zu 
Je 64 Zeichen. Die Zeilen werden von 0 bis 15 
durchnumeriert. Screens enthalten normalerweise Quelltext, 
koennen jedoch auch dazu benutzt werden, um 
Massenspeicherdaten zu betrachten. Das erste Byte eines 
Screens ist gleichzeitig das erste Byte eines 
Massenspeicherblocks; dies ist auch der Anfangspunkt fuer 
Quelltextinterpretation waehrend des Ladens eines Blocks. 


Suchreihenfolge (search order) 
Eine Spezifikation der Reihenfolge, in der ausgewaehlte 
Vokabulare im Dictionary durchsucht werden. Die 
Suchreihenfolge besteht auz einem auswechselbaren und 
einem festen Teil, wobei der auswechselbare Teil immer als 
erstes durchsucht wird. Die Ausfuehrung eines 
Vokabularnamens macht ss zum ersten Vokabular in der 
Suchreihenfolge, wobei das Vokabular, das vorher als 
erstes durchsucht worden war, verdraengt wird. Auf dieses 
erste Vokabular folgt, soweit spezifiziert, der feste Teil 
der Suchreihenfolge, der danach durchsucht wird. Die 
Ausfuehrung von ALSO uebernimmt das Vokabular im 
auswechselbaren Teil in den festen Teil der 
Suchreihenfolge. Das Dictionary wird immer dann 
durchsucht, wenn ein Wort durch seinen Namen aufgefunden 
werden soll. 
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stack, data (Datenstapel) 
Eine "Zuletzt-rein, Zuerst-raus” (last-in, first-out) 
Struktur, die aus einzelnen 16bit Daten besteht. Dieser 
Stack wird hauptsaechlich zum Ablegen von 
Zwischenergebnissen waehrend des Ausfuehrens von 
Wortdefinitionen benutzt. Daten auf dem Stack koennen 
Zahlen, Zeichen, Adressen, Boole’sche Werte usw. sein. 
Wenn der Begriff "Stapel" oder "Stack" ohne Zusatz benutzt 
wird, so ist immer der Datenstack gemeint. 


stack, return (Ruecksprungstapel) 
Eine "Zuletzt-rein, Zuerst-raus"” Struktur, die 
hauptsaechlich Adressen von Wortdefinitionen enthaelt, 
deren Ausfuehrung durch den Adressinterpreter noch nicht 
beendet ist. Wenn eine Wortdefinition eine andere 
Wortdefinition aufruft, so wird die Ruecksprungadresse auf 
dem Returnstack abgelegt. 
Der Returnstack kann zeitweise auch fuer die Ablage 
anderer Daten benutzt werden. 


String, counted (abgezaehlte Zeichenkette) 
Eine Hintereinanderfolge von 8bit Daten, die im Speicher 
durch ihre niedrigste Adresse charakterisiert wird. Das 
Byte an dieser Adresse enthaelt einen Zahlenwert im 
Bereich <0...255>, der die Anzahl der zu diesem String 
gehoerigen Bytes angibt, die unmittelbar auf das Countbyte 
folgen. Die Anzahl beinhaltet nicht das Countbyte selber. 
Counted Strings enthalten normalerweise ASCII-Zeichen. 


String, Text (Zeichenkette) 
Eine Bintereinanderfolge von 8bit Daten, die im Speicher 
durch ihre niedrigste Adresse und ihre Laenge in Bytes 
charakterisiert ist. Strings enthalten normalerweise 
ASCII-Zeichen. Wenn der Begriff "String" alleine oder in 


Verbindung mit anderen Begriffen benutzt wird, so sind 
Textstrings gemeint. 


Userarea (Benutzerbereich) 


Ein Gebiet im Speicher, das zum Ablegen der Uservariablen 
benutzt wird und fuer jeden einzelnen Prozess/Benutzer 
getrennt vorhanden ist. 


Uservariable (Benutzervariable) 
Eine Variable, deren Datenbereich sich in der Userarea 
befindet. Einige Systemvariablen werden in der Userarea 
gehalten, so dass die Worte, die diese benutzen, fuer 
mehrere Prozesse/Benutzer gleichzeitig verwendbar sind. 


Vokabular (vocabulary) 
Eine geordnete Liste von -Wortdefinitionen. Vokabulare 
werden vorteilhaft benutzt, um Worte voneinander 2u 
unterscheiden, die gleiche Namen haben (Synonyme). In 
einem Vokabular koennen mehrere Definitionen mit dem 
gleichen Namen existieren; diesen Vorgang nennt man 
redefinieren. Wird das Vokabular nach einem Namen 
durchsucht, so wird. die juengste Redefinition gefunden. 
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Vokabular, Kompilation (vocabulary, compilation) 


Das Vokabular, in das neue Wortdefinitionen eingetragen 
werden. 








Wahr (true) 
Ein Wert, der nicht Null ist, wird als "wahr" 
interpretiert. Wahrwerte, die von Standard-FORTH-Worten 
errechnet werden, sind 16bit Zahlen, bei denen alle 16 


Stellen auf "1" gesetzt sind, so dass diese zum Maskieren 
benutzt werden koennen. 


Wort, Definierendes (defining word) 
Ein Wort, das bei Ausfuehrung einen neuen 
Dictionary-Eintrag im Kompilationsvokabular erzeugt. Der 
Name des neuen Wortes wird dem Quelltext entnommen. Wenn 
der Quelltext erschoepft ist, bevor der neue Name erzeugt 
wurde, so wird die Fehlermeldung "ungueltiger Name" 
ausgegeben. 
Beispiele von definierenden Worten sind: 

CONSTANT CREATE 


Wort, immediate (immediate word) 
Ein Wort, das ausgefuehrt wird, wann es waehrend der 
Kompilation oder Interpretation aufgefunden wird. 
Immediate Worte behandeln Sondersituationen waehrend der 
Kompilation. 
Siehe 2.B. IF LITERAL USW. 


Wortdefinition (word definition) 
Eine mit einem Namen versehene, ausfuehrbare 
FORTH-Prozedur, die ins Dictionary kompiliert wurde. Sie 
kann durch Maschinencode, als eine Folge von 
Kompilationsadreäsen oder durch sonstige kompilierte Worte 
spezifiziert sein. Wenn der Begriff "Wort" ohne Zusatz 


benutzt wird, so ist im allgemeinen eine Wortdefinition 
gemeint. 


Wortname (word name) 


Der Name einer Wortdefinition. Wortnamen sind maximal 31 
Zeichen lang und enthalten kein Leerzeichen. Haben zwei 
Definitionen verschiedene Namen innerhalb desselben 
Vokabulars, so sind sie eindeutig auffindbar, wenn das 
Vokabular durchsucht wird. 

Siehe: "Vokabular" 


Zahl (number) 
Wenn Werte innerhalb eines groesseren Feldes existieren, 
so sind die hoeherwertigen Bits auf Null gesetzt. i6bit 
Zahlen sind im Speicher za abgelegt, dass sie in zwei 
benachbarten Byteadressen enthalten sind. Die 
Bytereihenfolge ist rechnerabhaengig. Doppeltgenaue Zahlen 
(32bit) werden auf dem Stack so abgelegt, dass die 
hoeherwertigen 16bit (mit dem Vorzeichenbit) oben liegen. 
Die Adresse der niederwertigen 16bit ist um zwei groesser 
als die Adresse der hoeherwertigen 16bit, wenn die Zahl im 
Speicher abgelegt ist. 
Siehe: "Arithmetik, 2er-komplement" und "Zahlentypen" 
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Zahlenausgabe, bildhaft (pictured numeric output) 
Durch die Benutzung elementarer Worte fuer die 
Zahlenausgabe ( z.B. <# # #s #> ) werden Zahlenwerte in 
Textstrings umgewandelt. Diese Definitionen werden in 
einer Folge benutzt, die ein symbolisches Bild des 
gewuenschten Ausgabeformates darstellen. Die Umwandlung 
schreitet von der niedrigstwertigen zur hoechstwertigen 
Ziffer fort und die umgewandelten Zeichen werden von 
hoeheren gegan niedrigere Speicheradressen abgelegt. 
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Zahlenausgabe, freiformatiert (free field format) 
Zahlen werden in Abhaengigkeit von BASE umgewandelt und 
ohne fuehrende Nullen, aber mit einem folgenden 
Leerzeichen, angezeigt. Die Anzahl von Stellen, die 
angezeigt werden, ist die Minimalanzahl von Stellen - 
mindestens eine - die notwendig sind, um die Zahl 
eindeutig darzustellen. 
Siehe: "Zahlenumwandlung" 


Zahlentypen (number types) 
Alle Zahlentypen bestehen aus einer spezifischen Anzahl 
von Bits. Zahlen mit oder ohne Vorzeichen bestehen aus 
bewerteten Bits. Bewertete Bits innerhalb einer Zahl haben 
den Zahlenwert einer Zweierpotenz, wobei das an weitesten 
rechts stehende Bit (das niedrigstwertige) einen Wert von 
zwei hoch null hat. Diesa Bewertung setzt sich bis zun am 
weitesten links atehenden Bit fort, wobei sich die 
Bewertung fuer jedes Bit um eine Zweierpotenz erhoeht. 
Fuer eine Zahl ohne Vorzeichen ist das am weitesten links 
stehende Bit in diese Bewertung eingeschlossen, zo dass 
fuer eine solche 16bit Zahl das ganz linke Bit den Wert 
32.768 hat. Fuer Zahlen mit Vorzeichen wird die Bewertung 
des ganz linken Bits negiert, ao dass as bei einer 18bit 
Zahl den Wert -32.768 hat. Diese Art der Wertung fuer 
Zahlen mit Vorzeichen wird 2er-komplementdarstellung 
genannt. 
Nicht spezifizierte, bewertete Zahlen sind mit oder ohne 
Vorzeichen; der Programmkontext bestimmt, wie die Zahl zu 
interpretieren ist. 


Zahlenumwandlung (number conversion) 
Zahlen werden intern als Binaerzahlen gefuehrt und extern 
durch graphische Zeichen des ASCII Zeichensatzes 
dargestellt. Die Umwandlung zwischen der internen und 
externen Form wird unter Beachtung des Wertes von BASE 
durchgefuehrt, um die Ziffern einer Zahl zu bestimmen. 
Eine Ziffer liegt im Bereich von Null bis BASE-1. Die 
Ziffer mit dem Wert Null wird durch das ASCII-zeichen "0" 
(Position 3/0, dezimalwert 48) dargestellt. Diese 
Zifferndarstellung geht den ASCII-code weiter aufwaerts 
bis zum Zeichen "9", das dem dezimalen Wert neun 
entspricht. Werte, die jenseits von neun liegen, werden 
“durch die ASCII-zeichen beginnend mit "A", entsprechend 
den Wert zehn usw. bis zum ASCII-zeichen """, entsprechend 
einundsiebzig, dargestellt.Bei einer negativen Zahl wird 
das ASCII-zeichen "-" den Ziffern vorangestellt. Bei der 
Zahleneingabe kann der aktuelle Wart von BASE fuer die 
gerade umzuwandelnde Zahl dadurch umgangen werden, dasz 
den Ziffern ein "Zahlenbasisprefix" vorangestellt wird. 
Dabei wird durch das Zeichen "%” die Basis voruebergehend 


Definition der Begriffe 
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auf den Wert zwei gesetzt, durch "&” auf den Wert zehn und 
durch “$" oder “"h" auf den Wert sechzehn. Bei negativen 
Zahlen folgt das Zahlenbasisprefix dem Minuszeichen. 
Enthaelt die Zahl ein Komma oder einen Punkt, so wird sie 
als 32bit Zahl umgewandelt. 


Zeichen (character) 


Eine 7bit Zahl, deren Bedeutung durch den ASCII-Standard 
festgelegt ist. Wenn sa in einem groesseren Feld 


gespeichert ist, so sind die hosherwertigen Bits auf Null 
gesetzt. 


Zustand (mode) 


Der Textinterpreter kann sich in zwei moeglichen 
Zustaenden befinden: dem interpretierenden oder dem 
kompilierenden Zustand. Die Variable STATUS wird vom 
System entsprechend gesetzt, und zwar enthaelt sie bei der 
Interpretation eine False-flag, bei der Kompilation eine 
True-flag. 


Siehe: "Interpreter, Text” und "Kompilation" 
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C64 Full Screen Editor 


Allgemeines 


Der Bildschirm des C64 bedingt eine Abweichung vom FORTH- 
Standard- Format der Screens mit 16 Zeilen zu 64 Zeichen, 
wenn man Rollen zur Seite oder das haessliche 1 2/5 -Zeilen- 
Format vermeiden will. Ein Screen wird in unserem Editor mit 
24 Zeilen zu 41 Zeichen und 1 Zeile mit 40 Zeichen (zusammen 
1024 Zeichen) dargestellt. Dabei sind 25 Zeilen mit 40 Zei- 
chen sichtbar und auch voll beschreibbar, eine Spalte von 
Leerzeichen befindet sich rechts vom Bildschirm: 










Sichtbarer Screen 
nit 25 x 48 Zeichen. 
Jede Zeile bis Leerzeichen, 

einschließlich des nicht direkt 

. letzten Zeichens beschreibbar. 
.  beschreibbar., 


Eine Spalte 
unsichtbarer 





Der Bildschirm scorollt weder aufwaerts noch seitlich. Es 
existiert kein "Quote- Modus". 


Im Editor haben verschiedene Tasten besondere Bedeutung, ins- 
besonders aind die Funktionstasten belegt, diverse Tasten 
wirken, wenn sie zusammen mit CTRL betaetigt werden. 


Die Auswirkung der Funktionstasten wird von oben (F1/F2) 

nach unten (F7/F8B) geringer. Siehe die Beschreibung der Funk- 
tionstasten. Loeschfunktionen sind aus Gruenden der Sicher- 
heit beidhaendig einzugeben (F2, F4, F6). Die CURSORtasten, 
INSerT, DELate und HOME verhalten sich wie gewohnt. 


Der Editor bearbeitet zunaechst nur einen besonderen Buffer 
und veraendert den Disk- Buffer nicht. Erst auf Kommando 
wird der Disk- Buffer updated. Damit koennen grobe Editier- 
Fehler keinen grossen Schaden anrichten. 


Der Editor verhindert, dass versehentlich Text verloren 
geht, indem ar Funktionen nicht ausfuehrt, wenn dadurch Zei- 


chen nach unten oder zur Seite aus dem Bildschirm geschoben 
wuerden. 
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Der Editor unterstützt das “"Shadow-Konzept". Zu jedem Quell- 
text-Screen existiert ein Konmentar-Screen, so daß viel Platz 
für Kommentare zur Verfügung steht. Bei Benutzung diesar 
Screens wird die Lesbarkeit von Forthprogrammen wesentlich 
erhöht (obwohl ein guter FORTH-Sti} selbstdokumentierend ist). 
Auf Tastendruck stelit der Editor den Kommentar-Screen zur 
Verfügung, der somit "deckungsleich" angefertigt werden kann. 
Das Druckerinterface druckt Quelltext und Kommentar, falls 
gewünscht, nebeneinander aus. 

Zum "“Umgraben" umfangreicher Quelltexte ist der Wechsel zwi- 
schen zwei beliebig wählbaren Screens oft nützlich. Durch einen 
Tastendruck werden Kopien und beliebige Umgruppierungen von 
Zeichen besonders einfach. 

Eine Suche- und Ersetze-Funktion ist die Voraussetzung für eine 
effektive Fehlersuche und für eine verbesserte Lesbarkeit der 
Programne, denn damit kann die Namensgebung von Worten nach- 
träglich verbessert werden. 

Ist der Editor geladen, so stehen zur Eingabe auch außerhalb 
des Editors die Cursortasten und alle zeichenbezogenen Ctrl- 


Codes zur Verfügung. Mit <Return> wird die Cursorzeile nach den 
Änderungen übernomnen. 


C16 Full Screen Editor 


Im Gegensatz zu den Erläuterungen zum C64-Editor können beim 
C16 Zeilen nach unten aus den Bildschirm herausgeschoben 
werden. Das geschieht unter folgenden Umständen: 

-) Br wird in die 40. Bildschirmspalte einer beliebigen Zeile 
ein Zeichen geschrieben. Wenn hier eine logische Zeile 
Bildschirmzeile aufhört, schiebt die LI/O-Routine des 
Betriebssystens eine neue Zeile ein. 

-) Es wird <ESC> <I> oder eine andere <ESC>-Kombination 
eingegeben, die eine Zeile aus dem Bildschirm schiebt. 


Die C16-ESCAPE-Tasten-Funktionen, wie sie z.B. aus dem BASIC 
bekannt sind, können benutzt werden, führen aber zusammen mit 


unseren Editor-Funktionen zu sonderbaren Reaktionen auf dem 
Bildschirm. 
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von FORTH in den Editor 


(n--) 
Einstieg in den Editor Screen # n. Der Screen 
wird, wenn noetig, von der Diskette geholt. War 
das System frisch geladen, so wird vor dem Ein- 
stieg die Signatur dea Benutzers erfragt. Diese 
Sienatur kann in die rechte obere Ecke des Screens 
kopiert werden. Siehe GETSTAMP, "print stanmp$" 
und "updated exit". Typisch enthaelt die Signatur 
das Tagesdatum und ein Programmierer- Kuerzel: 
0O4nov85re) oder We 18. April 85) 
Man befindet sich nun im Editor- Modus, den man 


nur mit "cancel”, "updated exit", "flushed exit" 
oder "load exit" wieder verlassen kann. 
(n-) "list" 


Einstieg in den Editor. Siehe EDIT. Unterschied zu 
EDIT: Der Cursor wird bei L HOME positioniert, bei 
EDIT nicht. 


(-) "re-list“ 
Rinstieg in den Editor. Der zuletzt editierte 
Screen wird aufgerufen, mit dem Cursor dort, wo er 
bei Verlassen des Editors war. Bei Fehlern waeh- 
rend LOAD von der Diskette, die der Interpre- 
ter/Compiler erkennt, werden die Variablen SCR und 
R# mit der Fehlarstelle versorgt. Ein R zeigt dann 
den Screen, in dam der Fehler auftrat, dar Cursor 
steht 2 Zeichen hinter dem bemaengelten Wort. 


(De) "plus-list" 
Einstieg in den Editor. Zur aktuellen Screen-Nr. 
wird n addiert und der entsprechende Screen zum 


Editieren geholt. Das Gegenstueck daa Editors zu 
+LOAD und +THRU . 


kim) 
wird benutzt in der Form: 

view <name> 
Sucht das Wort <name> im Dictionary und ruft dan 
zugehoerigen Quelltext- Screen zum Editieren auf. 
Setzt allerdings voraus, dass die richtige Dis- 
kette im Laufwerk ist. Vergleiche L und EDIT 
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Verlassen des Editors 


CTRL c "sancel" 


Der Editor wird verlassen. Dabei wird der Arbeits- 
Buffer- Inhalt weggeworfen und der Disk- Buffer 
nicht angetastet. 


STOP 
Der Editor wird verlassen wie mit "cancel". 


CTRL x "updated-exit" 
Der Editor wird verlassen. Arbeits- und Disk- Buf- 
fer werden miteinander verglichen, bei Abweichun- 
gen wird 
1. die Signatur, sofern eingegeben, in dia rech- 
ta obere Ecka kopiert, und 
2, der Arbeits- in den Disk- Buffer kopiert, 
einschliesslich der nicht sichtbaren Spalte von 
Leerzeichen rechts der Zeilen 0-23. 
Wird keine Veraenderung festgestellt, zo wird der 
Editor wie bei "cancel" verlassen. 


CTRL f£ "flushed-exit" 
Der Editor wird verlassen wie bei "updated exit", 
anschliessend wird SAVE-BUFFERS ausgefuehrt, alle 
UFDATEd Screens werden auf die Diskette zurueckge- 
schrieben, sie bleiben jedoch in den Disk- Buf- 
fern. Sieaha SAVE-BUFFERS und FLUSE . 


CTRL 1 "load-exit" 
Der Editor wird verlassen wie bei "flushed exit", 
dann wird der editierte Screen ab der aktuellen 
Cursorposition (!) geladen. Das Laden laesst sich 
optisch verfolgen. Siehe SHOWLOAD . 
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Die gewohnten Editiertasten 


CuRSoR right 

CuRSoR left 

CuRSoR down 

CuRScR up 

DELete "backspace" 
INSer? 

a 


Verhalten sich wie gewohnt. 


SEIFT HOME "to-end" 


Der Cursor wird hinter das letzte Zolchen auf dem 
Bildschirm bewegt. 


RETURN 
Der Cursor wird an den Anfang der naschaten Zeile 
bewegt, der Insert- Modus wird geloescht, die logi- 
sche Verbindung von Zeilen wird aufgehoben. 


SHIFT RETURN 
Sishe "RETURN". 





F1 


F2 


F3 


F4 


F5 


F&8 


F7 
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Die Funktionstasten 


"insert-line" 
Der Screen wird ab und einschliesslich der Cursor- 
zeile um eine Zeile nach unten geschoben, die Cur- 
sorzeile wird mit Leerzeichen gefuellt. 


"delete-line" 

Die Cursorzeile wird weggeworfen, der Rest des 
Screens um eine Zeile hochgezogen, die letzte Zei- 
le wird mit Leerzeichen gefuellt. Um ganze Screens 
zu loeschen, muss man F2 benutzen. Erscheint dies 
zu muehsam, so definiere man sich: 

: wipe ( --) acr ® block Db/blk bl fill ; 
WIPE loescht den zuletzt editierten Screen. 


"pull-line" 
Nach "insert line" wird die oberste Zeile vom Zei- 
lien- Stack in die Cursorzeile geholt. 


"push-line" 
Die Cursorzeile wird auf den Zeilen- Stack trans- 
portiert, der Rest des Screens um eine Zeile hoch- 
gezogen und die letzte Zeile geloescht. Verglei- 
che "delete line". Der Zeilen- Stack kann viele 
Zeilen aufnehmen, abhaengig vom Dictionary- Space 
oberhalb PAD bis unterhalb SP@ . Die Zeilen sind 
dort sicher, bis das naechste Mal compiliert wird, 
Auch FLUSH mit anschliessendem Diskettenwechsel be- 
rushrt den Zeilen- Stack nicht, so dass kleine bis 
mittlere Koplerarbeiten ueber diesen Stack vorge- 
nommen werden koennen. Vergleiche "copy line" 
und "copy char". 


"pull-char" 
Nach einem "INSerT" wird das oberste Zeichen vom 
Zeichen- Stack unter die Cursorposition geholt. 


"push-char" 
Das Zeichen unter dem Cursor wird auf den Zeichen- 
Stack transportiert, dann wird ein "delete char" 
ausgefuehrt. Der Zeichen- Stack kann BO Zeichen 
aufnehmen. Die Zeichen sind dort bis zum naechsten 
Compilieren sicher. Vergleiche "copy char". 


"+tab" 
Der Cursor wird um 10 Zeichen nach rechts bewegt. 


"-tab" 
Der Cursor wird um 5 Zeichen nach links bewegt. 


CTRL 
CTRL 


CTRL 


CTRL 





Andere Editor Funktionen 


{für C64) "copy-char" 
(für C16) 


Das Zeichen unter dem Cursor wird auf den Zeichen- 
stack kopiert, der Cursor nach rechts bewegt. Ver- 
gleiche "push char” und "pull char" . 


"sopy-line" 
Die Cursorzeile wird auf den Zeilenstack kopiert, 
der Cursor abwaerts bewest., Vergleiche "push line" 
und "pull line". 


"erase-line"” 
Die Cursorzeile wird geloescht. Es wird nichts ver- 
schoben. 


"delete-char" 
Das Zeichen unter dem Cursor wird geloescht, der 
Cursor bleibt, wo er ist, die Zeichen racohta vom 
Cursor werden nach links gasöogen. Die gleiche Funk- 
tion liesse sich mit "CuRSoR risht" und "backspace" 
erreichen, Vergleiche "push char”. 


"insert-on" 
Der Insert- Modus wird eingeschaltet, Jedes in die- 
sem Modus eingegebene Zeichen bewirkt ein vorange- 
hendeas "insert". Der naua Text wird also in den 
vorhandenen eingefuegt. Vergleiche "insert". 


"overuwrite-on” 
Der Insert- Modus wird wieder abgeschaltet. 


"elear-to-right" 
Dis Cursorzeile wird ab und einschliesslich der 
Cursorposition nach rechts geloescht. 









CTRL 8 


CTRL # 













—— 
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Ein bisschen Komfort(h) 


"print-stamp-string” 
Die Benutzersigmatur wird in die rechte obere Ecke 
des Screens kopiert. Vergleiche "getstamp". 


"show-screen-number" 
Die Screen- Nummer wird in der obersten Zeile ein- 
geblendet. Jeder folgende Tastendruck loescht die 
Anzeige wieder. 


delete Lıne 





Push Lıme 








CTRL n 


CTRL b 


CTRL w 
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Blaettern durch den Text 


"next-soreen" 
Der naechstes Scorsen wird zum Editieren bereitge- 
stellt. Der gerade bearbeitete Screen wird wie 
bei "updated exit" updated. 


"back-soreen" 
Dar vorhergehende Screen wird zum Editieren u8- 
holt. Siehe "next screen". L 


"shadow-screen" 
Es wird vom Original-Screen in den Shadow-Scoreen, 
oder von dort zurueck, gewechselt. 5Sisha "next 
screen”. 


"alter-screen" 
Wechselt vom aktuellen in einen alternativen 
Sorsen und wieder zurueck. Nach dem Kaltstart auf 
Borsen # 1 eingestellt. Biehs "next screen". 





seite 158 _ 


CTRL ’ 








unhthotrafwe FRrTI-GesTiiac 


ultraFoRTHa3 


Suchen und Ersetzen 


"search" 
Es wird nach einem String gesucht. Zunaechst war- 
den der letzte zu durchsuchende Screen, der Such- 
und der Ersatz- String abgefragt. <RETURN> laesst 
die Felder unveraendert, alle anderen Eingaben wer- 
den uebernommen. Die Suche beginnt im aktuellen 
Screen ab Cursorposition, Ist der Zielsoreen vor 
dem Startscreen, so werden die Screens in abstei- 
gender Reihenfolge, sonst in aufsteigender Reihen- 
folge, durchsucht. Innerhalb der Scoreens wird 
immer von oben nach unten gesucht. Das Suchen kann 
Jederzeit mit "STOP" abgebrochen werden. 
Wird der Such- String gefunden, so haelt der Cur- 
sor dahinter. "STOP" bricht auch jetzt die weite- 
ra Suche ab, die Taste <r> ersetzt den Such- durch 


dan Ersatz- String, alle anderen Tasten bewirken 
das Weitersuchen. 
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Andere Worte des Editors 


Editor re) 
Ein Vocabulary, in das Worte compiliert sind, die 
mit dem Editor zu tun haben. Siehe VOCABULARY . 


digits (--) 
ein mit INPUT: definiertes Wort, das die Tastatur 
als Eingabegeraet setzt. Zeichen, die keine Zif- 
fern darstellen (siehe BASE ), werden nicht ange- 
nommen. DIGITS benutzt DIGDECODE . Siehe INPUT: , 
KEYBOARD und EDIBOARD . 

digdecode ( adr lenü key -- adr leni ) "digit-decode" 
wertet key aus. Ist key wader #B5S noch #CR „ dann 
wird geprueft, ob key eine gueltige Ziffer reprae- 
sentiert. Siehe BASE . Wenn nicht, bleibt len0 un- 
veraendert und key geht verloren, sonst wird key 
in der Speicherstelle adr + lenO abgelegt, das Zei- 
chen als Echo zum Ausgabegeraet gesandt und lenO 
inkrementiert. Im Falle von #BS wird das letzte 
Echo geloescht und lenO dekrementiert, bei HCR 
wird lenO nicht veraendert und in die Variable 
SPAN kopiert. DIGDECODE wird von DIGITS benutzt. 
ger} eiche INPUT: „ DECODE ,„ C84DECODE und EDIDE- 


ediboard (-) 
ein mit INPUT: definlertes Wort, das als Eingabege- 
rast die Tastatur setzt. Cursortasten und alle im 
Editor definierten, auf Zeichen bezogene, CTRL- 
Codes werden nach EDIBOARD ausgefuehrt. EDIBOARD 
ist, wenn der Editor geladen ist, der Standard- 
Input, Siehe STANDARDI/O . EDIBOARD benutzt EDI- 
EXPECT und EDIDECODE . Vergleiche INPUT: , 
KEYBOARD und DIGITS . 


sdiexpect ( adr len -- ) 

richtet alle EDITOR- Puffer ein und erwartet dann 
len Zeichen vom Eingabegeraet, die ab adr im Spei- 
cher abgelegt werden. Ein Echo der Zeichen wird 
ausgegeben. GR besndet die Eingabe vorzeitig. Ein 
sbschliessendes Leerzeichen wird immer ausgegeben. 
Die Laenge der empfangenen Zeichenkette wird in 
der Variablen SPAN uebergeben. Vergleiche EIPECT . 
Siehe auch EDIEXFECT . 


adidaccde ( adr lenO key -- adr len] ) 
wertet kay aus. Ist key = #CR ,„ za wird die Zeile, 
in der der Cursor steht, komplett im Speicher ab 
adr aufwaerts abgelegt, leni auf die aktuelle 
Laenge eingestellt und diese Laenge ausserdem in 
SPAN uebergeben. Ist key sin zeichenbezogener 
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(pad 


(search 


getstamp 


stamp$ 


shadow 
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CTRL-Code, so wird die zugehoerige Aktion ausge- 

fuehrt. Ist key ein normales druckbares Zeichen, 

so wird es auf das Ausgabegeraet ausgegeben. len 
wird in diesen Faellen nicht veraendert, Verglei- 
che DECODE und INPUT: 


( -- adr ) 
adr ist die Adresse einer Variablen, die die Adres- 
se von PAD haelt. Weichen PAD und der Inhalt von 
(PAD ab, so werden die Editor- Buffer fuer Zeilen- 
und Zeichen- Stack neu initialisliert. 


( text tlen buf blen -- adr tf // ff ) 
text ist die Adresse eines Textes der Laenge tlen. 
(SEARCH sucht diesen Text in einem Puffer, der bei 
buf beginnt und blen Zeichen lang ist. Wird der 
Text im Puffer gefunden, so wird die Adresse adr 
des Textes im Puffer und ein TRUE tf uebergeben, 
sonst nur ein FALSE ff. 


#7) 
fragst die Benutzer- Signatur ab. Vergleiche STAMP3Y 
und "print-stamp-string". 


( -- adr ) 
adr ist die Adresse einer Datenstruktur, die die 
Benutzer- Signatur enthaelt. Vergleiche GETSTAMP 
und "print-stamp-string". 


( -- adr ) 
adr ist die Adresse einer Variablen, die den Ab- 


stand zwischen Original- und Shadow- Screen ent- 
haelt. 


(-- +n) 
wird in der folgenden Form benutzt: 

v <name> 
V sucht <name> im Dictionary und hinterlaesst die 
Nummer +n des Screens, von dem <name> compiliert 
wurde. Ist +n = 0 so wurde <name> vom Terminal com- 
piliert. Vergleiche VIEW . 
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(load 


showload 


Besondere LOAD Worte 


(blE +n —- ) "paren-load" 
laedt den. Block b1& nicht von Anfang an, sondern 
ab dem +n ’sten Zeichen. Ist tn =0, so macht (LOAD 
dasselbe wie LOAD . Vergleiche LOAD . 


( bik +2 -- ) 
laedt den Block bIk nicht von. Anfang an, sondern 
ab dem +n ’sten Zeichen, Beim Laden werden die 
Screens gelistet und eine Marke hinter den gela- 
denen Namen gesetzt. Das Laden kann so optisch ver- 
folgt werden. Ein "load exit" benutzt SHOWLOAD ; 
Vergleiche (LOAD und LOAD . 
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Spezielle C864 Worte 


x*xkultraFORTH83KK* ( -- ) 


.blk 


cbm>scr 


ein Wort ohne Funktion. Siehe NOOP . 


=) "orint-block" 
druckt die Block-Nummer aus, die gerade geladen 
wird. Ist der Inhalt von BELK = 0, so wird nichts 
gedruckt. .BLK wird typisch in der Form: 

ı ‚blMk Is ‚status 
verwendet. .BLK wird nun von .STATUS ausgefuehrt. 
Nach dem Laden des Editors ist dies voreinge- 
stellt. Eigene Worte koennen .STATUS Jederzeit zu- 
gewiesen werden. 


( 8b0 -- 8b1 ) "commodore-to-screen" 
ein Zeichen wird von commodore- Code 5bü in den 
commodore- screen- Code Bhbi gwandelt. 


FORTH-Gesellschaft ( -- ) 


rvsoff 


rvson 


scr>cbm 


unlink 


ein Wort ohne Funktion. Siehe NOOP . 


(-- ) "reverse-off" 
schaltet die inverse Darstellung von Zeichen äuf 
dem Bildschirm ab. 


er) "reverse-on" 
schaltet die inverse Darstellung von Zeichen auf 
dem Bildschirm an. 


{ 860 -- Bbl ) "screen-to-commodore" 
ein Zeichen wird von commodore- screen- Code BbÜ 
in den commodore- Code 8b1 gwandelt. Siehe ASCII . 


et 
hebt die logische Verbindung aller physikalischen 
Bildschirmzeilen auf. Ein, fuer normale Menschen 
(nicht-commodore-Benutzer), voellig unverastaend- 
liches und unnuetzes Wort; leider notwendig. 
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2Constant 


2Variable 


32-Bit Worte 


( 22b adr -- ) "tworstore" 
32b werden im Speicher bei adr abgelegt. Siehe 
2VARIABLE und "Definition der Begriffe, Zahl 
(number) ". 


( adr -- 32 ) "two-fetch" 
Von der Adresse adr werden 32b auf den Stack ge- 
holt. Siehe 2VARIABLE und "Definition der Begrif- 
fe, Zahl (number)“. 


E 32b -- ) "two-constant" 

( -- 32b ) compiling 
wird zo benutzt: 

32b 2Constant <name> 
2CONSTANT erzeugt eine 32-Bit Konstante mit dem 
Namen <name>. 32b wird compiliert. Bei Ausfuehrung 
von <name> wird 32b auf dem Stack hinterlassen. 
Siehe "Definition der Begriffe, Zahl (number)". 


(==) "two-variable"“ 

( -- adr ) compiling 
wird in der Forn: 

2Variable <name> 
benutzt. ZVARIABLE erzeugt eine 32-Bit Variable 
mit dem Namen <name>. Der Inhalt der Variablen 
wird nicht initialisiert. Bei der spaeteren Aus- 
fuehrung von <name> wird die Adresse adr der Vari- 
ablen hinterlassen. Mit 2! koennen 32b-Werte in 
der Variablen abgelegt und mit 2@ wieder entnommen 
werden. Vergleiche 2CONSTANT , 2! „ 2@ , 
VARIABLE „ ! und ® . Siehe auch "Definition der Be- 
eriffe, Zahl (number). 





Seite 164 m Oo DD DD — — — — CFORTH-Geselise ultrafoRTH83 







| ultraFORTHBZ 


Seite i65 |] 


CDFKSFST Efu= 





Seite 166 8 borensrerue FORTI-Gesellse ultraFüRTHäs 










ultraFORTHBS 


(cd 1988 BE/AsZ/re/we 








| Anhang Darts 177 


Graphie glossary 


Allseneines 


Das Graphic-Paket für ultraFORTH ersöglicht die eintache Nutzung 
der Graphicmöglichkeiten des C64 von FORTH aus. Alle Routinen 
wurden auf maximale Geschwindigkeit ausgelegt, daher sind die 
grundlegenden Worte wie 'plot', ’'line'’ etc. in Maschinencode 
geschrieben. Das Paket gliedert sich in drei Teile: 


1, Hires-Graphic 
2. Sprites 
3. Turtie Graphie 


Die Turtie-Graphic enthält alle vom LOBO her bekannten Betehle, 
ebenso sind die in LDGD gebräuchlichen Abkürzungen implementiert. 
Dies soll es vor allem dem Anfänger ermöglichen, sich spielerisch 
in FORTH einzuarbeiten. Ein geteiliter Bildschirs» (Windon) 
ermöglicht auch das interaktive Arbeiten mit den Braphic-Befehlen, 
d.h. man kann die Wirkung jedes Befehls unwsittelbar am Bildschirm 
beobachten. 

Die Graphic ’'verbiegt’ den IR8-Vector des Betriebssystens. Sie ist 
deshalb mit Routinen unverträglich, die ihrerseits den IR@-Vector 
für eigene Zuecke verstellen. Dies dürfte jedoch nur in den 
seltensten Fällen vorkommen und zu Problemen führen. 


Saseicherbelesung 


Der Hires-Bildschirm ist in 288 Reihen zu je 328 Punkten 
aufgeteilt. Der Punkt IB/21 liegt - wie in Koordinatensystenen 
üblich - unten (!) links, der Punkt (319/199) oben rechts. Eine 
Prüfung auf die Gültigkeit der eingegebenen Koordinaten findet aus 
Geschnwindigkeitsgründen nicht statt. Allerdings werden Punkte 
außerhalb der Bitwap nicht gezeichnet, um ein versehentliches 
überschreiben des Arbeitsspeichers zu verhindern. 


Eine Hires-Bitmap belegt 5k RAM. Dazu nüssen Bildschirn-, Farbram, 
zeichensatz und Sprites im gleichen i164k-Bereich liegen, da nie der 
VIC-Chip anders nicht darstellen kann. Aus diesen Brund wird Für 
die Graphic der obere 164k-Bereich ISCH8ß-SFFFF) eingeschaltet. 
Dieser Bereich ist folgendermaßen aufgeteilt: 


CBD8 Videoran für Text 

cC#428 Farbram für Hires-Screen 
C88238 Bereich für Spritedaten 
DSE® frei 

DBZPB Charactersatz im RAN (!) 
ERE® Hires Bitmap 


ACHTUNG : Auf dem Ci16 wurde bisher keine Graphik fartig- 
gestellt. Wer sich daran versuchen möchte, fordere bitte die 
ersten Quelltexte von Claus Vogt an. 
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Die Graphic benutzt ein eigenes Vocabulary, das für den Benutzer 
jedoch nicht aufrufbar ist, um ein versehentiiches Aufrufen der 
Graphic-Worte zu verhindern, wenn der Graphic-Modus nicht 
eingeschaltet ist. 


graphie 6-2 


Der Graphic-Bildschire wird eingeschaltet, die Worte des 
Graphic-Vocabularys werden verfügbar, die Taste Fi erhält 
eine Unschaltfunktion (s.u.) 
Spllen neue Worte ins Graphic-Vocabulary conpiliert werden, 
lautet die Betfehlstolge 

graphic also definitione. 


nographic -) 


Der Graphic-Modus wird abgeschaltet, der Bildschirm liegt 
wieder im normalen Bildschirsbereich etc. 


Innerhalb der Graphic gibt ss drei Modi: 
text (-) 


Der gesante Bildschirm ist im Textmodus. Insbesondere sind 
auch alle Editorfunktionen ausführbar. Dieses Wort wird beim 
Aufruf von graphic ausgeführt. 


hires =) 


Der Bildschirm ist is Hires-Modus. Betehle können eingegeben 
und ausgführt werden, die Worte sind allerdings nicht 
sichtbar. 


windon in -) 


Der Bildschirm wird in zwei Teile geteilt. Die oberen n 
Zeilen werden im Hires-Modus dargestellt, der untere Teil im 
Text-Modus. In diesem Modus ist interaktives Arbeiten mit 
den Sraphic-Worten besonders einfach, weil gleichzeitig die 
Worte und ihre Wirkung sichtbar sind. 


Cosnadore-Tasnte 


schaltet zwischen text, graphic und windan um. der Aufruf 
von graphic stellt 28 Zeilen tür den Hires-Bereich und 5 
Zeilen für den Text-Bereich ein. 
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Earbeinstellunsen 


Die Commodore üblichen Farbcodes künnen durch sinnvolle 
Abkürzungen ersetzt werden: 
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bik schwarz IM) „ht weiß (19 
red rot (2) cyn cyan (3) 
pur purpur (4) grn grün (3) 
blu biau (6) yal gelb (7) 
ora orange 81 brn braun (9) 
iIre hellrot (1389) gri graul (11) 
gr2 grau2 12) ilgr heillgrün (13) 
libl hellblau (149) gr3 grau (15) 
irscreen ( - ) Abkürzung cs 


löscht Hires-Bildschirm 


border I color - ) 


setzt die Rahmentarbe für den Textmodus. Di» Einstellung 
bleibt auch beim Rücksprung in dan Normalmodus erhalten. 
Beispiel: yel border 


Eucreen i color - ) 


setzt die Hintergrundfarbe für den Textmodus. Die 


Einstellung bleibt auch beim Rücksprung In den Normalnodus 
erhalten. 


Beispiel: blu sereen 


background i color - } Abkürzung bg 

setzt die Hintergrundtarbe für den Hiresmodus. 
pencolor I ceolor - ) Abkürzung pe 

setzt die Zeichenfarbe für den Hiresmodus. 
eolore ( Background toregraund - | 


ist eine Zusammenfassung der Worte background und Pencolor, 
setzt gleichzeitig Zeichen- und Hintergrundfarbe für den 
Hiresmodus. 


Beispiel: yel blu colors 
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plot IxXy-) 

netz einen Punkt an den Koordinaten (x/y). 
unplot ix y-) 

läscht einen Punkt mit den Kaardinaten Ix/y). 
tip xy -)I 


setzt einen Punkt an den Koordinaten (x/y), wenn er gelüsch 
war, und löscht ihn, wenn er gesetzt war. 


line I xi ylil “DB yB - |] 


zeichnet eine Gerade vun (x8/yB) nach (xi/yi). Dieses Wort 
besteht aus einer eigenen Maschinenrnutine und ist damit 
erheblich schneller als eine Schleife »it plot. 


dranto ı xi yi -) 


zeichnet eine Gerade vos zuletzt gezeichneten Punkt zu Jen 


Koordinaten {(xi4/yi}. Der letzte Punkt kann aomohl mit Line 
als auch mit plot, unplot etc. gezeichnet warden sein. Srine 
Koordinaten liegen in den Variablen xpoint und ypoint 
tg.u.). 
Beispiel: 18 ı8 138 12 line 

135 138 dranto 

iS 1580 drawto 

iS 18 cranto 
zeichnet ein Quadrat. 


*1ipline I xi yi BE yB - ) 


ähnlich wie line, doch warden Punkte wie bsi #lip 
umgeschaltet. Insbesandere kann ein zweites Ausführen von 
+lipline wit denselben Koordinaten den alten Zustand auf im 
Bildschirm exakt wiederherstellen. 


pgointx t - adr ) 
Eine Variable, die die zuletzt gezeichnete X-kKoordinate 
anzeigt. Jedes der aben aufgeführten Warts aktualisiert 
xpoint . 


painty ( - adr ) 


Eine Variable, die die zuletzt gezeichnete Y-Koordinate 
enthält. Wird wie ppintx aktualisiert. 
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Der VIC-Chip kann gleichzeitig bis zu B Sprites mit den Nunnern 
(spr®) @ - 7 darstellen. Im dafür vorgesehenen Buffer künnen die 
Daten van J2 Sprites abgelegt werden. Jedes Sprite benötigt 43 
Bytenss der Buffer ist daher in Bereiche zu je &ä4 Bytes unterteilt, 
die über eine Nunzer Imenä} zwischen BO und Si angesprochen werden 
können. Durch geschickte Zuordnung der Buffernumsnern zu den 
Spritenunsern eröffnen sich vielfältige Möglichkeiten, da disse 
Zuordnung rei wählbar und natürlich auch innerhalb eines 
Prograsas äAnderbar ist. Sprites werden inner sowohl im Textmodus 
als auch im Hiresmodus dargestellt. 


getforn I adr nen® - ) 


holt sich die Daten eines Sprite von Adresse adr in den 
Spritebuffer nam. 


Beispiel: 38 black ZB gettornm 
holt die Daten vom Diskettenblock 38 in den Spritebutfter 8. 


torssprite ( nenl spr® - ) 


ordnet die Spritedaten aus Buffer mend des Sprite spr#E zu. 
Beispiel: 3 4 forasprite 
Sprite 4 wird mit dan Daten aus Buffer J dargestellt. 


setzprite I menü y x color spr® - ), 
setzt ein Sprite, dezaan Daten im Spritebuffer unter der 
Numser nen® llegen, als Sprite spr4. Es erscheint an Jen 
Kaardinaten (x/y) in der Farbe color. Für a und y gelten die 
bei Comwadara üblichen Werte, d.h. IB/B) liegt links oben im 
nichtsichtbaren Bereich des Bildschirms. 
Beispiel: DB iBE 188 bik i setsprite 
Dieses Wort faßt mehrere andere (getfornm, Ccolored etc.) 
zusammen, um die Programmierung zu vereinfachen. Als 
Nachteil muB diese Übergabe won 5 Paranetern in Kauf nehmen. 


setbit ( 5b adr #1 - ) 
setzt oder IiBdscht in Abhängigkeit von fl das Bit Nummer 3b 
in Byte adr. Diuses Wort wird in einigen Spritesworten 
benutzt, um gezielt dia Werta in den Spriteregistern 
beeinflussen zu können. 

ser {€ 3b air - I) 
setzt Bit Nummer 3b im Byte adr. 

raset I .Sb adr .- ) 
lBscht Dit Munmser 3b im Byte adr. 

nanve (a2 spr®6 - ) 
bauegt Sprite sprB an dis horizontale Position x. 


ynava I y naprf - I) 


bewegt Sprite spr® an die vertikale Position y. 
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Zusammenfassung der Worte xmnvVe und ymave. 
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Die tolgenden Befehle beeintlussen die Eigenschaften eines Sprites 


high I spr4 - ) 
vergrößert Sprite sprä in y-Richtung. 


Ion (spru - ) 
verkleinert Sprite spr® in y-Richtung. 
wide I spr# - ) 
vergrößert Sprite spr@& in x-Richtung. 
slin [ spr4 - ) 
verkleinert Sprite spr® in x-Richtung. 
big I sprW - I) 
vergrößert Sprite spr® in x- und y-Richtung. 
small I spr®# - ) 
verkleinert Sprite spr® in x- und y-Richtung. 
behind ( spr4 - ) 
Sprite spr# erscheint hinter dem Text. 
infront I spr4 - ) 
Sprite spr® erscheint vor dem Text. 
colured t spr# color - |) 
setzt Farbe color für Sprite spr®. 
Seolored ( - adr ) 
übergibt die Adresse des Multicolorregisters auf dem 
Mit der Sequenz 
3 Scalored set 
wird der Multicolarmodus für Sprite 5 eingeschaltet. 
sprcolors i{ color color - ) 
setzt die Farben für den Multicolormodus. 
uparite ( - adr ) 
übergibt die Adresse des Sprite-Anzeigeregisters auf 
Stack. Mit der Sequenz 


4 sprite reset 
nird Sprite 4 gelöscht. 


Stack. 


den 


ultraFORTHgE © 


421 1995 bofb.eserf/ue 





Zurtie Graohie 


Alle wan LOGO her bekannten Worte sind nit gleicher Syntax - 
allerdings in der Forth-typischen prätfix-Notation implementiert. 
Allerdings wurde auf die Darstellung der Turtle und damit auf die 
Betehle showturtle und hideturtie verzichtet. Einige Worte sind 
bereits bei der Hires-Graphic besprochen wpnrden: 


peneolor (pe) 


background (bg) 
ceirscreen 44% 


Andere Worte haben lediglich zusätzliche Hamen erhalten. 


Allerdings sind beide Massen in allen Bereichen der Graphic 
aufrufbar: 


+ullscreen ist gleichbedeutend mit hires. 
splitscreen ist gleichbedeutend mit window. 


heading {= deg ) 


übergibt die derzeitige Richtung der Turtie auf dem Stack. 
BS bedeutet dabei "nach rechts’, Y3® 
bedeutet 'nach oben’ uunm. 


setheading t deg - | Abkürzung seth 
setzt die Richtung der Turtie auf deg Grad. Richtungen 5.D. 
right ideg - ) Abkürzung rt 


dreht die Turtle um deg Grad nach rechts. Bei Überschreitung 
von JäG" wird "um die Uhr’ gerechnet. 


1e#t it deg - ] Abkürzung It 


dreht die Turtie um deg Grad nach links. Bei Unterschreitung 
van = wird "um die Uhr' gerechnet. 


forward ne) Abkürzung #4 


bewegt die Turtle um n Schritte in der eingestellten 
Richtung nach vorn. Bei überschreitungen des 
Bildschirsarandes werden die Punkte zwar nicht mehr 
gezeichnet, aber die Position der Turtle (xcnr,ycar) 
trotzdem beeinflußt. Der Benutzer muß selbst auf die 
Einhaltung der Grenzen achten ! 


back in") Abkürzung bk 


bewegt die Turtle um n Schritte in der angegebenen Richtung 
zurück. Bei Bereichsüberschreitungen gilt das oben Gesagte. 
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xcor (= x) 


übergibt die augenblickliche X-Konrdinate der Turtle auf den 
Stack. 


ycor (-y) 


übergibt die augenblickliche Y-Koordinate der Turtle auf den 
Stack. 


setx (x -) 
setzt die Turtle aut die X-Koordinate x. 
soty (y-) 
setzt die Turtie auf die Y-Koordinate y. 
setxy (xy -) 
Zusammenfassung der Befehle setx und sety. 
pendown (-» Abkürzung pü 
Die Turtle zeichnet bei ihren Bewegungen. 
penup (-) Abkürzung pu 
Die Turtle zeichnet nicht bei ihren Bewegungen. 
home (-) 
Die Turtle wird in die Mitte des Bildschirms (178,188) 
positioniert mit Richtung nach oben (98°). Der 
Schreibstift wird eingeschaltet (pendown). 
dran I -) 
Der Bildschirm wird gelöscht und in ein Text- und ein 
Graptictenster unterteilt, die Turtle auf Haneposition 
gesetzt. 
noadran I - ) 
schaltet in den Textmodus und läscht den Bildschirm. 
turtiestate {= pen bg pc |} Abkürzung ta 
liefert auf dem Stack den augenblicklichen Zustand der 


Turtle in der Reihenfolge Schreibstift an (True) oder aus 
(False), Hintergrundfarbe, Schreibfarbe. 
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Der 6502-Assembler 


Im folgenden werden die Konzepte des 6502-Assemblers für das 
ultraFORTH83 dargestellt. Es wird kein vollständiges Glossar 
angegeben, da die Mnemonics des Assemblers allen 
Programmierern vertraut sein dürften. Eine genaue Darstellung 
der Funktionsweise findet Sie in den FÖRTH DIMENSIONS, Vol 
III,5 p. 143ff . Im folgenden wird eine kurze Zusammenfassung 
angegeben sowie Änderungen gegenüber dem Original dargestellt. 


Die Funktionsweise des Adressinterpreters sowie der Routine 
NEXT wird in Kapitel 2 dargestellt. 

Der 6502-Assembler gestattet strukturierte Programmierung. Die 
Strukturelemente sind analog zu den Kontrollstrukturen des 
Forth aufgebaut, tragen jedoch andere Namen, um die 

ermecn eo nngsgefahr zu verringern und die Übersichtlichkeit 
au erhöhen. 

Ein Beispiel: 


ea ?[ <ausdruck1> ][ <ausdruck2> }? 


oc steht für "condition code" . <ausdruckl; wird ausgeführt, 
wenn oc zutrifft, andernfalls <ausdruck2> . Der Teil 


][ <ausdruck2> 


kann auch weggelassen werden. Das Analogan in Forth ist IF 
. ELSE ... THEN . 
Beachten Sie bitte, daß vor ?[ immer (!) ein condition code 
stehen muß. Außerdem findet keine Prüfung auf korrekte 
Verschachtelung der Kontrollstrukturen statt. 
Weitere Kontrollstrukturen sind: 


[Ü <ausdruck1> cc ?L[[ <ausdruck2> |])]? 
[[ <ausdrucki1> cc ?] 
[[Ü <ausdruck1> ])] 


Die analogen Ausdrücke in Forth wären 


BEGIN <ausdrucki> WHILE <ausdruck2> REPEAT 
BEGIN <ausdrucki> UNTIL 
BEGIN <ausdruck1> REPEAT 


Auch hier darf bei den Assemblerworten cc nicht weggelassen 

werden. Außerdem ist nur genau ein ?7[[ zwischen [[ und 

13? zulässig. Beachten Sie bitte auch den Unterschied zwischen 
]] und 2)? ı 

Als condition code sind zulässig : 


D= D<> 0< 0>= CS CC V5 VC 
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Sie können den Prozessor-Flags 2 N C und V zugeordnet werden. 
Im“ersten Beispiel wird also <ausdruck1> ausgeführt, wenn cc 
durch 0= ersetzt wird und das Z-Flag gesetzt ist. Jeden der 
condition codes kann man durch ein folgendes NOT erweitern, 
also 2.B.: 


0= NOT ?[ O0 a lda ]? 


Neben allen anderen Opcodes mit ihren Adressierungsarten gibt 
es auch die Sprünge BCC BCS usw. Sie sind nur in der 
Adressierungsart Absolut zulässig, d.h. auf dem Stack 
befindet sich die Adresse des Sprungzieles. Liegt diese 
Adresse außerhalb des möglichen Bereiches, ao wird die 
Fehlermeldung "out of range“ ausgegeben. 


Für die anderen Opcodes sind, je nach Befehl, die folgenden 
Adressierungsarten zulässig: 


A8 X ,Y X )Y ı 


Die Adressierungsart Absolut wird verwendet, wenn keine andere 
angegeben wurde. Wird mit einem Mnemonic eine nicht erlaubte 
Adressierungsart verwendet, =o wird die Fehlermeldung 
"invalid" ausgegeben. 


Beispiele für die Verwendung des 6502-Assemblers (zur 
Erläuterung wird die herkömmliche Notation hinzugefügt) 


.a rol rol a 

1 #8 Idy ldy #1 

data ‚X sta sta data,x 

36 x) ade adc (86,x) 
vector )y 1lda lda (vector),y 
vector ) jmp Jnp (vector) 


Zusätzlich enthäit das System noch mehrere Macros, die alle 
nur Absolut adressieren können: 


winc - Inkrementiert einen 16-Bit-Zeiger um I. wdec 
dekrementiert analog. 


2inc - Inkrementiert einen 16-Bit-2eiger um 2. 2dec 
dekrementiert analog. 


‚ce: - Schaltet den Assembler ab und den Forth-Compiler 
an. Damit ist es möglich, von Maschinencode in Forth 
überzuwechseln. Ein Gegenstück ist nicht vorhanden. 

Ein Beispiel für die Verwendung von ;C: ist: 


0< ?[ :c: ." Fehler ; Assembler 1? 
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Ist irgendwas kleiner als Null, so wird "Fehler" ausgedruckt 


und die Ausführung des Wortes abgebrochen, sonst geht ea 
weiter im Code. 


Schließlich gibt es noch die Worte >LABEL und LABEL . 
>LABEL erzeugt ein Label im Heap, wobei ea den Wert des Labels 


vom Stack nimmt. LABEL erzeugt ein Label mit dem Wert von 
HERE. Beispiel: 


Label schleife dex 
schleife bne 


Ein Codewort muß letztendlich immer auf NEXT JMP führen, 
damit der Adressinterpreter weiter arbeitet. Im folgenden 
Glossar werden Konstanten angegeben, auf die gesprungen werden 
kann und die Werte auf den Stack bringen bzw. von ihm 
entfernen. Wichtig ist insbesondere die Routine S5ETUP. Sie 
kopiert die Anzahl von Werten, die im Akkumulator angegeben 
wird, in den Speicherbereich ab N. 


Für den Zugriff auf den Stack wird, soweit das möglich ist, 

die Benutzung der Worte BEBTUPF und FUSH ... empfohlen. Das 
reicht allerdings häufig nicht aus. In diesem Fall kann man 

die Werte auf dem Stack folgendermaßen zugreifen: 


SP x) lda \ Das untere Byte des ersten Wertes 
SP )y lda \ Das obere Byte das ersten Wertes 


sowie durch Setzen dea Y-Registers auch die zweiten, dritten 
etc. Werte. Beachten Sie bitte, das in NEXT verlangt wird, 
daß das X-Register den Inhalt 800 und da= Y-Register den 
Inhalt $01 hat. Das wurde im obigen Beispiel ausgenutzt. 
Beispiele für Assemblercode in Forth, den wir als gut 
empfinden, sind unter Anderem die Worte FILL und -TRAILING 
.„ Wollen Sie Assembler programmieren, a0 sollten Sie sich 
diese Worte und noch einige andere ansehen. 


Beim Assemblerprogrammieren muß beachtet werden, daß ultraFöRTE 


das ROM abschaltet. Daher müssen Lesezugriffe ins RON etwas 
anders organisiert werden. 
Beispiel für den C16: 
f£f42 jsr springt eine RAN-Routine an. 
ff3e sta fd} Jsr ££fif sta springt eine ROM-Routine an. 
sie £unktioniert nur, wenn sie im unteren RAM-Bereich (<$8000) 
steht. Sonst folgen undefinierte Reaktionen. 
Beim C6&4 ist eine Bankumschaltung nur für Lesezugriffe in des 
BASIC-ROM erforderlich. Hierbei ist zusätzlich zu beachten, daä 
eine Bankumschaltung mit BEI vorbereitet werden muß, da 
andernfalls der periodische Tastaturinterrupt zu einen Absturz 
führen würde, 
Auf dam Ci&5 ist kein SEI erforderlich, da in RAN der Vektor 
SFFFE auf eine eigene Interruptroutine zeigt (sie benötigt ca. 
i Promille der Rechenzeit). Aus dem gleichen Grund führt eine 
BRE - Instruktion zwar weiterhin in den Monitor, allerdings mit 
falschem Regisäterdump, da der Monitor auf dem Stack die Daten 
der Interruptroutine statt der Register vorfindet. 
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PushA 


PushBA 


Fuse 


wert 


xyNext 


Puta 


Pop 


Poptwo 
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ASsemblern 


-- addr 
Eine Konstante, die die Adresse einer Maschinencode-Sequenz 
enthält, die den Inhalt des Akku vorzeichenbehaftet auf den 
Datenstack legt und dann zu NEXT springt. Wird als 
letzter Sprungbefehl in Code-Worten benutzt. 


-- sddr 
Eine Konstante, die die Adresse einer Maschinencode-Sequenz 
enthält, die den Inhalt des Akku auf das Low-Byte des 
Datenstacks ablegt. Das High-Byte wird grundsätzlich auf 8 
gesetzt. Anschliessend wird zu NEXT gesprungen. Wird als 
letzter Sprungbetfehl in Code-Worten benutzt. 


-- sddr . 
Eine Konstante, die die Adresse einer Maschinencode-Sequenz 
enthält, die den Inhalt des Akku als High-Byte au? den 
Datenstack legt. Das Lon-Byte wird vom prüzessorstack 
geholt und muß vorher dort abgelegt worden sein. 
Anschliessend wird zu NEXT gesprungen. Wird als letzter 
Sprungbefehl in Code-Warten benutzt. 


-- addr 
Eine Konstante, die die Adresse von NEXT aut den 


Datenstack legt. Wird als letzter Brishl in Code-Worten 
benutzt. 


.- addr 
Wie NEXT jedoch werden vorher das XrRegister mit 8 und 
das Y-Register mit i geladen. Das System erwartet 
grundsätzlich bei Aufruf ven NEXT dissa Werte in den 
Registern. Ansonsten reagiert es mit Nbsturz. 


-- addr 
Eine Konstante, die die Adresse einer Maschinencode-Sequenz 
enthält, die den Akku als Low-Byte auf den Datenstack 
sblegt. Das High-Byte wird nicht verändert, ebanzso wird is 
Gegensatz zu PUSH kein Platz auf den Datenstack 
geschaften. Anschliessend wird NEXT durchlaufen. Wird als 
letzter Befehl in Code-Worten benutzt. 


-- addr 
Eine Konstante, die die Adresse einer Maschinencode-Sequenz 
enthält, die das oberste Eienent vom Datenstack entfernt. 
Anschliessend wird zu NEXT gesprungen, Wird als letzter 
Sprungbefehl in Code-Worten benutzt. 


-- addr 
Eine Konstante, die die Adresse einer Maschinencode-Saequenz 
enthält, die die übersten beiden Elemente vom Datenstack 
entfernt. Anschliessend wird zu NEKT gesprungen. Wird als 
letzter Sprungbefehl in Code-Worten benutzt. 









AP 


2 


IP 


setup 


WCHp 


raEB 


Foh 


uys 
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-- adär 


Eine Konstante, die die Adresse des Returnstackpointers 
enthält. 


-.- addr 


Eine Konstante, die die Adresse des Userpointers, also des 
Offsets zu ORIGIN enthält. 


-- sdär 


Eine Konstante, die die Adrense des Datenstackpointers 
enthält. 


-- addr 
Eine Konstante, die die Adresse des Instruktionspointers 
der Forth-Maschine enthält. Dieser zeigt auf das jeweils 
nächste abzuarbeitende Wort. : 


-- addr 
Eine Konstante, die die Adresse des Wort-Pointers dar Forth- 
Maschine enthält. Dieser zeigt auf das jeweils gerade 
bearbeitete Wort. 


-- sdär 
Eine Konstante, die die Adresse eines Speicherbereichs in 
der Zeropage enthält, der dem Anwender zur Vertügung steht. 


-- addr 
Eine Konstante, die die Adrssse einer Maschinencode-Sequenz 
enthält, die n Elemente vom Datenstack abbaut und bei N 
ablegt. Die Anzahl n mwuB im Akku stehen, wenn SETUP als 
Subroutine angesprungen wird. Das oberste Element des 
Datenstacks liegt Bei N ,„ das zweite bei N+Z etc. Zum 
Schluß werden X- und Y-Register auf OO bzw. 1 gesetzt. 


{ addri adädär2 -- ) 
Diesos Assenblermakro assembliert eine Sequenz, die 
bei Ausführung den Inhalt des Wortas an addri nit dem 
Inhalt des Wortes an addr2 vergleicht. Anschließend 
ist das Carry-Flag high, wenn der Inhalt von addrı 
größer oder gleich dem Inhalt von addr2 ist. 


Ea werden der Akku sowie die Statusregisterflags CZ 
DD N verändert. 


(--) 
Makro. Schaltet bei Ausführung auf eine andere Spei- 


cherbank. Die genaues Wirkungsweise ist naschinenab- 
hängig. 


(:==) 
Makro. Schaltet bei Ausführung auf eine ätidere Spei- 


cherbank. Die gensus Wirkungsweise ist maschinenab- 
hängig. 


{ adär-- ) 

Makro. Schaltet bei Ausführung auf eine Speicherbank 
mit Systemroutinen und Führt jsr aus. Die genaue 
Wirkungsweise ist maschinenabhängig. 
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Abweichungen des ultraFORTH33 von 
Programmieren in Forth 


Die Gründe für die zahlreichen Abweichungen des Buches 
"Starting Forth"“ bzw. "Programmieren in Forth" (Hanser, 1984) 
von Leo Brodie wurden bereits im Prolog aufgeführt. Sie sollen 
nicht wiederholt werden. Das Referenzbuch ist, trotz 
offenkundiger Mängel in Übersetzung und Satz, die deutsche 
Version, da sie erheblich weiter verbreitet sein dürfte, Im 
folgenden werden nicht nur Abweichungen aufgelistet, sondern 
auch einige Fehler mit angegeben. Die Liste erhebt keinen 
Anspruch auf Vollständigkeit. Wir bitten alle Leser, uns 
weitere Tips und Hinweise mitzuteilen. Selbstverständlich gilt 
das auch für alle anderen Teile dieses Handbuchs. Vielleicht 
wird es in der Zukunft ein Programm geben, das es ermöglicht, 
Programme aus "Starting Forth" direkt, ohne daß man diese 
Liste im Kopf haben muß, einzugeben. 


Kapitel 1 - Grundlagen 


3 -) Das ultraFORTH System befindet sich nach dem 
Einschalten im Hexadezimal-Modus. Daher muß man, um 
die folgenden Beispiele des Buches eingeben zu 
können, erst DECIMAL eintippen. Danach werden 
alle folgenden Zahlen als Dezimalzahlen 
interpretiert. Außerdem dürfen alle Worte auch klein 
geschrieben werden. Das Beispiel lautet dann: 


decimal 15 szpacsa 


7 -) im ultraFORTR System wurde statt "Lexikon" 
konsequent der Begriff "Dictionary" verwendet. 


g -) Statt "?" durckt das ultraFORTH "haeh?" ,„ wenn 
XLERB eingegeben wird. 


-) Selbstverständlich akzeptiert das ultraFORTH Namen 
mit bis zu 91 Zeichen Länge. 
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il -) Im ultraFORTH kann auch der Hochpfeil "*" als 
Zeichen eines Namens verwendet werden. 


=) Fußnote 6 : Der 83-Standard legt fest, daß ." nur 
innerhalb von Definitionen verwendet werden darf. 
Außerhalb muß man .( verwenden. 


17 -) Das ultraFORTHR eibt bei Stackleerlauf irgendeine 
Zahl aus, nicht unbedingt eine Null ! Nebenbei 
bemerkt: Das ultraFORTH ist das erste System auf dem 
664, für den der Satz mit dem großen Stack wirklich 
zutrifft, denn dort können sich nun typisch mehr als 
tausend Werte befinden. 


18 -) Druckfehler : Bei dem Beispiel (n -- ) muß zwischen 
"(" und "n" ein Leerzeichen stehen. Das gilt auch 
für viele der folgenden Kommentare. 


19 -) Bei dem Wort EMIT muß man natürlich angeben, in 
welchem Code das Zeichen kodiert ist. Beim 
ultraFORTH auf dem C84 ist das nicht der 
ASCII-Zeichensatz, sondern der 
Commodore-spezifische. Am Besten ist es, statt 42 
EMIT lieber ASCII * EMIT einzugeben. 


Kapitel 2 - Wie man in Forth rechnet 


23 -) Druckfehler : Selbstverständlich ist 10 1000 # 
kleiner als 32767, kann also berechnet werden. 
Kurios wird sa nämlich erst bei 100 1000 *# 


3 -) Die Operatoren /MOD und MOD arbeiten laut 
83-Standard mit vorzeichenbehafteten Zahlen. Die 
Definition von Rest und Quotient bel negativen 
Zahlen findet man unter "Division, floored" in 
"Definition der Begriffe" oder unter /MOD im 
Glossar. 

Seien Sie bitte bei allen Multiplikations- und 
Divisionsoperatoren äußerst mißtrauisch und schauen 
Sie ins Handbuch. Es gibt keinen Bereich von Forth, 
wo die Abweichungen der Systeme untereinander größer 
sind als hier. 
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.5 ist im System als Wort vorhanden. Unser .S 
druckt nichts aus, wenn der Stack leer ist. Auch die 
Reihenfolge der Werte ist andersherum, der oberste 
Wert steht aanz links. Alle Zahlen werden 
vorzeichenlos gedruckt, d.h. -1 erscheint als 85535 


'S heißt im ultraFORTH SP@ 


Das Wort DO funktioniert nach dem 83-Standard 
anders als im Buch. .S druckt nämlich, falls kein 
Wert auf dem Stack liegt, 32768 Werte aus. Ersetzt 
man DO durch ?DO „ so funktioniert das Wort ,S 
aber nur dann, wenn man 2- wegläßt. Nebenbei 
bemerkt ist es sehr schlechter Stil, den Stack 
direkt zu addressieren ! 


<ROT ist im ultraFOÖRTH unter dem Namen -ROT 
vorhanden. 


Im ultraFORTH gibt == das Wort ZOVER nicht. 
Benutze: 


: 2over 3 pick 3 pick 


Kapitel 3 - Der Editor und externe Textspeicherung 


Beim ultraFORTH auf dem C64 wird ein leistungsfähiger 
Bildschirmeditor mitgeliefert, dessen Bedienung sich von dem 
im Buch benutzten Zeileneditor stark unterscheidet. Wir haben 
3edoch den im Buch verwendeten Editor zum System dazugepackt. 
Er wurde geringfügig modifiziert. 


AB =) 
48 =) 
B5 -) 


Das ultraFORTH für den C64 stellt auf einem 
Diskettenlaufwerk 170 Blöcke zur Verfügung. Um den 
Bildschirm besser ausnutzen zu können, wurden sie in 
24 Zeilen mit je 41 Zeichen und eine Zeile mit 40 
Zeichen aufgeteilt. Bei den Zeilen mit 41 Zeichen 
ist das 41. Zeichen nicht sichtbar. 


Bevor man Editor-Worte benutzen kann, muß man erst 
EDITOR eingeben. 


Das Wort F gibt nicht KONE aus, sondern 
positioniert nur auf das arata Zeichen in der ersten 
Zeile, wann der Text nicht gefunden wurde. 
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56 -) Mit .I kann man sich den I-Puffer und mit .F den 
Suchpuffer ansehen. 


80 -) Das ultraFORTH besitzt sowohl die Worte FLUSH als 
auch SAVE-BUFFERS . Beim Diskettenwechsel sollten 
sie FLUSH verwenden. 


-) Das FLUSH nach COPY ist unnötig. 
61 -) BE gibt nur die Zeilennummer aus, und zwar vor dem 
Inhalt der Zeile, in der der Text gefunden wurde. 


-) M ist zu gefährlich. Der Editor sollte keine 
fremden Screens ruinieren. Benutzen Sie das Wort G 


oder BRING 

66 -) DEPTH ist vorhanden, 'S5 heißt 5P&@ . Wegen der 
Abweichungen beim Wort DO und der Stackadressen 
muß 4 - weggelassen werden. 


Kapitel 4 - Entscheidungen 


76 -) Die Vergleichsoperatoren müssen nach dem 83-Standard 
-1 auf den Stack legen, wenn die Bedingung wahr ist. 
Dieser Unterschied zieht sich durch das ganze Buch 
und wird im folgenden nicht mehr extra erwähnt. Also 
: -l ist "wahr" ,„ O0 ist "falsch" . Daher entspricht 
O= nicht mehr NOT. NOT invertiert nämlich jedes 
der 16 Bit einer Zahl, während 0= falsch liefert, 
wenn mindestens eins der 16 Bit gesetzt ist. 
überall, wo NOT steht, sollten Sie 0= verwenden. 


54 -) Das Wort ?S5TACK im ultraFORTH liefert keinen Wert, 
sondern bricht die Ausführung ab, wenn der Stack 
über- oder leerläuft. Daher ist das Wort ABORT" 
überflüssig. 


84 -) Statt -< muß es in der Aufgabenstellung 6 
natürlich =< heißen. Für positive Zahlen tut 
UWITHIN im ultraFORTH dasselbe. 





91 


83 


104 


108 


| uitraraRinsz 





Seite 165 } 


Kapitel 5 - Die Philosophie der Festkomma-Arithmetik 


-) 


-) 


Eine Kopie des obersten Wertes auf dem Returnstack 
bekommt man beim ultraFORTA mit R@ . Die Worte I 
und J liefern die Indices von DO-Schleifen. Bei 
einigen Forth-Systemen stimmt der Index mit dem 
ersten bzw. dritten Element auf dem Returnstack 
überein. Der dann mögliche und hier dokumentierte 
Mißbrauch dieser Worte stellt ein Beispiel für 
schlechten Programmierstil dar. Also: Benutzen sie 
Iund J nur in DÖO-Schleifen. 


Die angedeutete Umschaltung zwischen Vokabularen 
geschieht anders als beim ultraFORTEB. 


Fußnote: Es trifft nicht immer zu, daß die Umsetzung 
von Fließkommazahlen länger dauert als die von 
Integerzahlen. Insbesondere dauert die Umsetzung von 
Zahlen beim ultraFORTE länger als z.B. bei 
verschiedenen BASIC-Interpretern. Der Grund ist 
darin zu suchen, daß die BASICs nur Zahlen zur Basis 
10 ausgeben und daher für dieses Basis optimierte 
Routinen verwenden können während das ultraFORTH 
Zahlen zu beliebigen Basen verarbeiten kann. Es ist 
aber durchaus möglich, bei Beschränkung auf die 
Basis 10 eine erheblich schnellere Zahlenausgabe zu 
programmieren. 


*/MOD im ultraFORTH arbeitet mit 
vorzeichenbehafteten Zahlen. Der Quotient ist nur 18 
Bit lang. 


Kapitel B - Schleifenstrukturen 


Die Graphik auf dieser Seite stellt 
Implementationsdetails dar, die für das polyFORTH 
gelten, nicht aber für das ultraFORTH. Reißen Sie 
bitte diese Seite aua dem Buch heraus. 


J liefert zwar den Index der äußeren Schleife, aber 
nicht den 3. Wert auf dem Returnstack. 
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Das Beispiel TEST funktioniert nicht. Beim 
83-Standard sind DO und LOOP geändert worden, zu 
daß sie jezt den gesamten Zahlenbereich von 
0...65535 durchlaufen können. Eine Schleife nn DO 

LOOP exekutiert also jetzt 65536 - mal und nicht 
nur einmal, wie es früher war. 
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Beim ultraFORTH wird beim Eingeben von 
nichtexistenten Worten nicht der Stack geleert, denn 
der Textinterpreter führt nicht ABORT" aus, 
sondern ERROR" . Den Stack leert man durch Eingabe 
der Worte CLEARSTACK oder ABORT . 


LEAVE wurde im 83-Standard so geändert, daß sofort 

bei Ausführen von LEAVE die Schleife verlassen 
wird und nicht erst beim nächsten LOOP. Daher ändert 
LEAVE auch nicht die obere Grenze. 


Kapitel 7 - Zahlen, Zahlen, Zahlen 


Erinnern Sie sich bitte daran, daß EMIT beim 
ultraFORTH auf dem C64 keinen ASCII Code 
verarbeitet. Außerdem ist ea Systemabhängig, ob 
EMIT Steuerzeichen ausgeben kann. 


Seien Sie .mißtrauisch ! Das Wort U/MOD heißt im 
83-Standard DUM/MOD . 


Das Wort /LOOP ist nun überflüssig geworden, da 
das normale Wort LOOP bereits alle Zahlen 
durchlaufen kann. 


Beim ultraFORTH werden nur Zahlen, die "," oder "." 
enthalten, als 32-Bit Zahlen interpretiert. "/" und 
"." sind nicht erlaubt. 


Der 83-Standard legt fest, daß SIGN ein negatives 
Vorzeichen schreibt, wenn der oberste (und nicht der 
dritte) Wert negativ ist. Ersetzen Sie bitte jedes 
SIGN durch ROT SIGN „ wenn Sie Beispiele aus dem 
Buch abtippen. 


Für HOLD gilt dasselbe wie das für EMIT 
(Abweichung Seite 19) gesaste. Benutzen Sie statt 
46 HOLD besser ASCII - HOLD 


ultraFORTH8Z3 


140 


= 


14} =) 


143 


149 








1c3 1985 bp/ks/re/uwe 


D- DMAX DMIN und DU< sind nicht vorhanden. 


32-Bit Zahlen können in eine Definition geschrieben 
werden, indem sie durch einen Punkt gekennzeichnet 
werden. Die Warnung für experimentierfreudige Leser 
trifft beim ultraFORTH also nicht zu. 


M+ M/ und M%x/ sind nicht vorhanden. Für M/ 
können Sie M/MOD NIP einsetzen und für M+ etwa 
EXTEND D+ 


Uk heißt im 83-Standard UM% und U/MOD UM/MOD 


Aufgabe 7 ist großer Quark ! Die Tatsache, daß 
viele Forth-Systeme als doppelt genaus Null 
interpretieren, bedeutet nicht, daß es sich um 
keinen Fehler der Zahlenkonversion handelt. Das 
ultraFORTH toleriert solche Fehleingaben nicht. 


Kapitel B - Variablen, Konstanten und Felder 


158 -) 


178 -) 


OVARIABLE 28 und 2! sind nicht im System 
enthalten : 

ı 28 dup 2+ ® zwap ® ; 

zZ rot ovar 2+ ! 1% 

: 2Variable Variable 2 allot ; 

: 2Constant Create ,„ ,„ Does> 28 ; 


Kapitel 8 - Forth intern 


Zu den Fußnoten 1,2 : Der 83-Standard schreibt für 
das Wort FIND ein anderes Verhalten vor, als hier 
angegeben wird. Insbesondere sucht FIND nicht nach 
dem nächsten Wort im Eingabestrom, sondern nimmt als 
Parameter die Adresse einer Zeichenkette (counted 
String), nach der gesucht werden soll. Auch die auf 
dem Stack abgelegten Werte sind anders 
vorgeschrieben. 


Daa Beispiel 3B ' GRENZE ! 
Stil; as ist verpönt, Konstanten zu ändern. Da das 
Wort ’ nach dem B3-Standard die Kompilationsadresse 
des folgenden Wortes liefert (und nicht die 
Parameterfeldadresse), der Wert einer Konstanten 
aber häufig in ihrem Parameterfeld aufbewahrt wird, 
funktioniert das Beispiel auf vielen Forth Systemen, 


ist schlechter Forth 
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die dem 8B3-Standard entsprechen, folgendermaßen: 
38 ” GRENZE >BODY ! 


179 -) Fußnote 3 : Die Fußnote trifft für den 83-Standard 
nicht zu. ' verhält sich wie im Text beschrieben. 
180 -) Das ultraFORTH erkennt 32-Bit Zahlen bereits 


seriennäßig, daher gibt es kein Wort ’ NUMBER 
Wollen Sie eigene Zahlenformate erkennen (etwa 
Floating Point Zahlen) , so können Sie dafür das 
deferred Wort NOTFOUND benutzen. 


181 -) Die vorgestellte Struktur eines Lexikoneintrags ist 
nur häufig anzutreffen, aber weder vorgeschrieben 
noch zwingend. Zum Beispiel gibt ss Systeme, die 
keinen Code Pointer aufweisen. Das ultraFORTH sieht 
Jedoch ähnlich wie das hier vorgestellte polyFORTH 


aus. 
188 -) Druckfehler : Statt ABORT' muß es ABORT" heißen. 
189 -) Der 83-Standard schreibt nicht vor, daß EXIT die 


Interpretation eines Disk-Blockes beendet. Es 
funktioniert zwar auch beim ultraFORTH, aber Sie 
benutzen besser das Wort \\ 


190 -) Die Forth Geographie gilt für das u’*raFORTH nicht: 
einige der Abweichungen sind : 


-) Die Variable H heißt im ultraFORTH DPF 
(=Dictionary Pointer) 


-) Der Eingabepuffer befindet sich nicht bei 50 , 
sondern TIB liefert dessen Adresse. 


-) Der Bereich der Benutzervariablen liegt woanders. 


191 -) Zusätzliche Definitionen : Beim ultraFORTH ist die 
Bibliothek anders organisiert. Ein 
Inhaltsverzeichnis der Disketten finden sie häufig 
auf Block 1 


197 -) Der Multitasker beim ultraFORTH ist gegenüber dem 
des polyFORTH vereinfacht. So besitzen alle 
Terminal-Einheiten (wir nennen sie Tasks) gemeinsam 
nur ein Lexikon und einen Eingabepuffer. Es darf 
daher nur der ÖFERATOR (wir nennen in Main- oder 
Konsolen-Task) kompilieren. 
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Im ultaFöORTH sind SCR RH# CONTEXT CURRENT >IN 
und BLK keine Benutzervariablen. 


Das über Vokabulare gesagte trifft auch für das 
ultraFORTH zu, genaueres finden Sie unter 
Vokabularstruktur im Handbuch. 


LOCATE heißt im ultraFORTH VIEW 


EXECUTE benötigt nach dem 893-Standard die 
Kompilationsadresse und nicht mehr die 
Parameterfeldadresse eines Wortes. Im Zusammenhang 
mit ' stört das nicht, da auch ' geändert wurde. 


Kapitel 10 - Ein- und Ausgabeoperationen 


Die angesprochene Funktion von FLUSH führt nach 
dem 83-Standard das Wort SAVE-BUFFERS aus. Ea 
schreibt alle geänderten Puffer auf die Diskette 
zurück. Das Wort FLUSH existiert ebenfalls. Es 
unterscheidet sich von BAVTE-BUFFERS dadurch, daß 
es nach dem zurückschreiben alle Puffer löscht. Die 
Definition ist einfach : 


:‘ flush save-buffers empty-buffers ; 


FLUSH wird benutzt, wenn man die Diskette wechseln 
will, damit von BLOCK auch wirklich der Inhalt 
dieser Diskette geliefert wird. 


Fußnote 4 trifft für das ultraFORTH nicht zu. 


Der B3-Standard schreibt vor, daß BUFFER sehr wohl 
darauf achtet, ob ein Puffer für diesen Block 
bereits existiert. BUFFER verhält sich genauso wie 

BLOCK , mit dem einzigen Unterschied, daß das evtl. 
erforderliche Lesen des Blocks von der Diskette 
entfällt. 


Wie schon erwähnt, muß bei den Beispielen auf dieser 
Seite 50 @ durch TIB ersetzt werden. Ebenso muß 

’ TEST durch ’ TEST >BODY erset2t werden. Das 
gilt auch für das folgende Beispiel BEZEICHNUNG 
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215 -) Beim C64 sind Zeilen nur 41 Zeichen lang. Verwenden 
Sie bitte statt 64 die Konstante C/L . Sie gibt 
die Länge der Zeilen in einem System an. 


217 -) Druckfehler : WORT ist durch QUATSCH zu ersetzen. 


219 -} <CMOVE heißt nach dem 83-Standard CMOVE> . Der 
Pfeil soll dabei andeuten, daß man das Wort benutzt, 
um im Speicher vorwärts zu kopieren. Vorher war 
gemeint, daß das Wort am hinteren Ende anfängt. 


-) Für MOVE wird im 83-Standard ein anderes Verhalten 
vorgeschlagen. MOVE wählt zwischen CMOVE und 


CMOVE> „ je nachdem , in welche Richtung verschoben 
wird. 


220 -) Auch für KEY gilt das für EMIT gesagte: Der 
Zeichensatz beim (084 ist nicht ASCII. 


-) Statt der Systemabhängigen Zahl 32 sollte beaser die 
Konstante BL verwendet werden ! 


223 -) TEXT ist nicht vorhandern. 


-) Fußnote 10 : QUERY ist auch im 83-Standard 
vorgeschrieben. 


-) WORD kann, muß aber nicht seine Zeichenkette bei 
HERE ablegen. 


224 -) Nach den 83-Standard darf EXPECT dem Text keine 
Null mehr anfügen. 


229 -) Fußnote 14 : PTR heißt beim ultraFORTH DPL_ (= 
decimai point location) . 


230 -) Ersetzen sie WITHIN durch UWITHIN oder 
?INNERHALB. NOT muß durch 0= ersetzt werden, da 
die beiden Worte nicht mehr identisch sind. 


232 -) Druckfehler in Fußnote 15 : Der Name des Wortes ist 
natürlich -TEXT und nicht TEXT . Außerdem müssen 
die ersten beiden "/" durch "@" ersetzt werden. 
Das dritte '"/" ist richtig. 
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Kapitel 11 - Wie man Compiler erweitert... 


BEGIN DO usw. sehen im ultraFORTHE anders aus, 
damit mehr Fehler erkannt werden können. 


Fußnote 2 : Die Erläuterungen beziehen sich auf 
polyFORTH, im ultraFORTH siehts wieder mal anders 
aus. Die Frage ist wohl nicht unberechtigt, warum in 
einem Lehrbuch solche implementationsabhängigen 
Details vorgeführt werden. 


Fußnote 3 : Eine Konstante im ultraFORTH kommt, 
falls sie namenlos (siehe Kapitel "Der Heap" im 
Bandbuch) definiert wurde, mit 2 Zellen aus. 


Die zweite Definition von 4DAZU funktioniert beim 
ultraFORTH nicht, da das Wort : den ; während 
der Kompilation Werte auf dam Stack übergibt. Das 
ist durch den 83-Standard erlaubt. 


Druckfehler : Statt L[SAG-HALLO] muß es I 
SAG-HALLO ] heißen. 


Die Beispiele für LITERAL auf dieser Saite 


funktionieren, da LITERAL standartgemäß benutzt 
wird. 


Druckfehler : Statt ICH SELBST muß es ICH-SELBST 
heißen. 


Bei Definitionen, die länger als eine Zeile sind, 
druckt das ultraFORTH am Ende jeder Zeile 
"compiling" statt "ok" aua. 


Die Beispiele für INTERPRET und |] entstammen dem 
polyFORTH. Eine andere Lösung wurde im ultraFORTH 
verwirklicht. Hier gibt as zwei Routinen, je eine 
für den interpretierenden und kompilierenden 


Zustand. INTERPRET führt diese Routinen vektoriell 
aus. 


Fußnote A trifft für das ultraFORTH nicht zu. 
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Kapitel 12 - Drei Beispiele 


Druckfehler : In WÖRTER ist ein 2DROP zuviel: 
ferner sollte >- >IN sein. 


In BUZZ muß ea statt WORT .WORT heißen. 
(Reingefallen : Es muß WÖRTER sein!) 


Die Variable SEED muß wohl SAAT heißen. Ob der 
Übersetzer jemals dieses Programm kompiliert hat? 


Nebenbei: Im amerikanischen Original hatten die 
Worte NÄCHSTES WÖRTER FOLLWORTER und EINLEITUNG 
noch einen Stackkomnentar, ohne die das Programm 
unverständlich wird, besonders bei diesem 
fürchterlichen Satz. Also, wenn Sie an Ihren 
Fähigkeiten zweifeln, sollten Sie sich das 
amerikanische Original besorgen. 
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Abweichungen des ulitraFORTH83 von 
’FORTH TOOLS’ 
von A. Anderson &k M. Tracy 


p.15 CLEAR macht im ultraFORTH83 etwas anderes als in FORTH 
TOOLS. Benutze statt CLEAR das Wort CLEARSTACK oder 
definiere 
' clearstack Alias clear 


p.27 .S druckt die Werte auf dem Stack anders herum aus, 
ausserdem fehlt der Text "Stack: " 


p. 34 ZOVER 2ROT fehlen. Benutze 
ı 2over 3 pick 3 pick ; 
: Zrot 5 roll 5 roll ; 
p.41 Es gibt noch keine Files. 
p.42 Ez gibt noch kein Wort DICTIONARY 
p.45 THRU druckt keine Punkte aus. 


p.46 Der Editor funktioniert anders. Ausserdem enthaelt 
eine Zeile beim C-64 nur 40 Zeichen und nicht B4. 


p.64 ultraFORTB83 enthaelt kein Wort ?. Benutze 


:9 Ds; 
p.73 Die Worte 2! 28 Z2VARIABLE und ZCONSTANT fehlen. 
Benutze 
ı 2Variable Variable 2 allot ; 
: 2Constant Create „ , Does> 26 ; 
2] rot over 2+ |! 5 
ı 2@ dup 2+& swap®; 
p.99 AGAIN gibt es nicht. Benutze stattdessen REPEAT oder 
definiere 
'’REPEAT Alias AGAIN immediate restrict 
p.103 Benutze  extend Alias s>d 


p.107_ DU< fehlt. 


p.116 BPAN enthaelt B Zeichen, da "EPAN ?" genau 8 Zeichen 
lang ist. Das System benutzt naemlich ebenfalls 
EXPECT. Daher geht das Beispiel auf Seite 117 auch 
nicht. Damit es geht, muas man alle Worte in einer 
Definition zusammenfassen. 


p.118 CPACK entspricht dam Wort PLACE. 
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Benutze 
ı String Create dup , 0 c, allot Does> 1+ count ; 


" kann nicht interpretiert werden. Zwei 
Sacneo, uasaahen hintereinander sind ebenfalls nicht 
erlaubt. 


Das Wort IS aus dem ultraFORTH83 kann innerhalb von 
Definitionen benutzt werden. 


Es gibt keine Variable WIDTH ,‚, da bei Namen alle 
Zeichen gueltig sind. 


Benutze 

: >link >name 2- ; 

ı link> 2+ name> ; 

ı n>link 2= 
l>name 2+ ; 


STOP entspricht \\ 


Bei FIND kann das Flag auch die Werte -2 oder +2 
annehmen. 


ORDER ist nicht in ONLY „ sondern in FORTE 
enthalten. Ausserdem druckt es auch nicht "Context:" 
oder "Current:" aus. Current wird stattdessen einfach 
zwei Leerzeichen hinter Context ausgegeben. 
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Targetconpiler-Worte 


Das ultraFORTH83-System wurde mit einem sog. Targetcopiler 
erzeugt. Dieser Targetcompiler compiliert ähnlichen Quelltext 
wie das ultraFORTH83-Systen. Es gibt jedoch Unterschiede. 
Insbesondere sind im Quelltext des ultraFORTH83 Worte enthal- 
ten, die der Steuerung des Targetcompilers dienen, also nicht 
im Quelltext definiert werden. Wenn Sie sich also über eine 
Stelle dass Quelltextes sehr wundern, sollten Sie in :der 
folgenden Liste die £fragwürdigen Worte suchen. 


Eine andere Besonderheit betrifft Uservariablen. Wenn im Quell- 
text der Ausdruck [ <namse) ]) LITERAL auftaucht und <name> 
eine Uservariable ist, so wird bei der späteren Ausführung des 
Ausdrucks NICHT die Adresse der Uservariablen in der Userarea 
sondern die Adresse in dem Speicherbereich, in dem sich die 
Kaltstartwerte dar Uservariablen befinden, auf dan Stack 
gelegt. 


Wenn die Kaltstartwerte von Uservariablen benötigt werden, wird 
dieser Ausdruck benutzt. 


Folgende Worte im Quelltext werden vom Targetcompiler benutzt: 


origin! Target here nonrelocate Host Transient Tudp 
Tvoc-1ink nove-threads .unresolved 


sowie eine Anzahl weiterer Worte. 


Die mitgelieferte Quelle des Systems gilt für drei Versionen: 


Die C64-Version, die Ci6-Version für 64 KByte (mit Interrupt- 
Handling) und eine leicht abgemagerte C16-Version, die nur 32 
KRöyte nutzen kann und dafür keine INTERRUPT-Umleitung braucht. 


Zur Kennzeichnung dieser Vielfalt dienen Worte, die von manchen 
Rachnern als Kommentare interpretiert werden, auf anderen aber 
Code erzeugen (Achtung : Dia im Quelltext das ultraFORTHB3- 
Kerns verwendete Syntax unterscheidet sich von der in den 
anderen Quelltexten verwendeten !). 

In Einzelnen sind das folgende Worte: (die Definitionen gelten, 
wenn Code für den C16+ erzeugt werden soll.) 


für alle Comncdorss » (ec r immediate 
für C64 : (c6& [compile] { ; immediate 
für C16/C116 & Plus4 : (c16 ; inmediate 
für C16/C116 & Plus4-64k : (c16+ : imnmediate 
für C16/C116 & Plus4-32k : (c16- [compile]) ( ; inmediate 
die Schließende Klauner : ) ‚ immediate 


Alles, was bis zur nächsten schließenden Klammer auf das Wort 
iC64 £olgt, wird also auf einen Ci6 als Kommentar verstanden. 
Auf einem C64 werden die obigen Definitionen natürlich zo 
geändert, daß alles, was auf die Worter (C16 (C16+ und (Ci16- 
folgt, als Kommentar aufgefaßt wird. 
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Vor der Targetcompilierung müssen sie ggf. umdefiniert werden 
(s. Quelldiskette). Bei der Arbeit mit diesen Worten muB man 
allerdings hölllsch aufpassen, Beispiele für Fehler sind: 


1.) (ce : zu ( Kommentar ) ..., ı) 
2.) CODE zX (c16 ..... ) (064 ..... ) next jnp end-code 
3.) (e CODE yy .... SP )Y 1da .... 


An: häßlichsten ist 2.), weil es beim Ausführen ohne jede 
Meldung zu einem todsicheren System-Zusanmenbruch führt. Daher 
wird im Quelltext in einem solchen Fall eher: 


(e1l6 ... () 


geschrieben. Wer die Beispiele nicht versteht, bedenke, daß 
die Worte (C usw. nach der nächsten (!) schließenden Klanmner 
suchen und daß ;Y sowie } Worte des Ausemblers sind. 

Die Worte, die im laufenden System eine ähnliche Punktion 
ausführen, sind (16 (64 und C) (siehe Glossar). Sie sind 
so abgesichert, daß die genannten Fehlerquellen wegfallen. 
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Meldungen des ultraFöRTH33 


Das ultraPORTH83 gibt verschiedene Fehlermeldungen und Warnun- 
gen aus. Zum Teil wird dabei das zuletzt eingegebene Wort 
wiederholt. Diese Meldungen sind im folgenden nach Gruppen 
getrennt, aufgelistet: 


Kernel 


? 


Der eingegebene String konnte nicht mit NUMBER in eine 
Zahl umgewandelt werden. Beachten Sie den Inhalt von BASE. 


beyond capacity 


Der angesprochene Block ist physikalisch nicht vorhanden. 
Beachten Sie den Inhalt von DGFFSET. 


cC) missing 


Das Ende der Eingabezeile oder des Screens wurde erreicht, 
bevor das zu I64 oder (16 gehörende C) gefunden wurde. 


compiling 


Das System befindet sich im compilierenden Zustand und 
erwartet die Eingabe einer Zeile. 


compile only 


Das eingegebene Wort darf mur innerhalb von :-Definitionen 
verwendet werden. 


crash 


Es wurde ein deferred Wort aufgerufen, dem noch kein 
auszuführendes Wort mit 15 zugewiesen wurde. 


Dictionary full 


Der Speicher für das Dictionary ist erschöpft. Sie müssen 
die Speicherverteilung ändern oder Worte mit FORGET ver- 
gessen. 


division overfZlow 


Die Division zweier Zahlen wurde abgebrochen, da das Ergeb- 
nis nicht im Zahlenbereich darstellbar ist. 


oxists 


Das zuletzt definierte Wort ist im Definitons-Vokabular 


schon vorhanden. Dies ist kein Fehler, sondern nur ein 
Binwels| 


haeh? 


Das eingegebene Wort konnte weder im Dictionary gefunden 
noch als Zabl interpretiert werden. 


invalid nane 


Der Name des definierten Wortee ist zu lang (mehr als 31 
Zeichen) oder zu kurz (Der Nams sollte dem definierenden 
Wort unmittelbar folgen). 
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is symbol 
Das Wort, das mit FORGET vergessen werden sollte, befindet 
sich auf dem Heap. Benutzen Sie dafür CLEAR. 


ok 
Das Systen befindet sich im interpretierenden Zustand und 
erwartet die Eingabe einer Zeile, 

nein 


Der Bereich von Blöcken, der mit CONVEY kopiert werden 
sollte, ist leer oder viel zu groß. 


no file 


Auf Ihrem System sind keine Files benutzbar. Die Variable 
FILE muß daher dan Wert Null haben. 


not deferred 


£s wurde versucht, mit IS einem Wort, das nicht deferred 
ist, eine auszuführende Prozedur zuzuweisen. 


no device . 


Das angewählte Gerät konnte über den seriellen Bus nicht 
angesprochen werden. 


protected 
Es wurde versucht, ein Wort zu vergessen, das mit SAVE 
geschützt wurde. Benutzen Sie die Phrase: ' 
' «<name> >name 4 - (forget save 
wobei ‘name> der Name des zu vergessenden Wortes ist. 


read error !| r to retry 


Bei einem Lesezugriff auf die Diskette trat ein Fehler auf. 
Durch Drücken der Taste <R> wird ein erneuter Leseversuch 
gestartet. Bei Drücken einer anderen Taste wird die Meldung 
"aborted" ausgegeben und ABORT ausgeführt. 


stack empty 
Es wurden mehr Werte vom Stack genommen als vorhanden waren. 


still full 


Hach der Meldung DICTIONARY FULL wurde noch kein Platz in 
Dictionary geschaffen. Holen Sie das unverzüglich nach, 
indem Sie einige Worte mit FORGET vergessen | 


tight stack 


Es befanden sich zuviele Werte auf dem Stack, so daß der 
Speicher erschöpft war. Legen Sie weniger Werte auf dan 
Stack, oder sparan Sie Speicherplatz im Dictionary. 


ultraFORTH83 rev 3.8 
Dies ist die Einschaltmeldung des ultraFORTH83. 


unstructured 


Kontrollstrukturen wurden falsch verschachtelt oder weg- 
gelassen. Diese Fehlermeldung wird auch ausgegeben, wenn 
sich die Zahl der Werte während der Kompilation einer ;- 
Definition zwischen :ı und ; geändert hat. 


’ 
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Userarea full 


Es wurden mahr als 124 Uservariablen definiert. Das ist 
nicht zulässig. 


Vocabulary stack full 
Es wurden zuviele Vokabulare mit ALEO in den festen Teil 
der Suchreihenfolge übernommen. Benutzen Sie ONLY oder 
TOSS, um Vokabulare zu entfernen. 


write error | r to retry 
Siehe " read error ..." 


I<name> 


Der Name des ausgegebenen Wortes befindet sich auf dem Heap 
und ist nach einem CLEAR nicht mehr sichtbar. 


RELOCATION 


returnstack ? 


Der Speicherplatz, der nach Ausführung von RELOCATE für den 
Returnstack übrig bliebe, ist zu klein. 


stack ? 


Der Speicherplatz, der nach Ausführung von BUFFERZ oder 
RELOCATE für das Dictionary übrig bliebe, ist zu klein. 


buffers ? 


Bei Ausführung würde RELOCATE keinen Blockbuffer im Systen 
lassen. Prüfen Sia die Argumente von RELOCATE. Die Anweisung 
0 BUFFERS ist natürlich ebenfalls nicht zulässig. 


ASSEMBLER 
invalid 
Die Kombination von Opcode und Adressierungsart ist nicht 
zulässig. 
not hare 


Ba wird in einem Speicherbereich assembliert, in dem das 
Makro ROM nicht angewendet werden darf. 


out of range 


Es wurde versucht, mit einem Brauch außerhalb des Bereiches 
von -128..+127 Bytes zu springen. 





EDITOR 


fron keyboard 


Das Wort, das VIEW auffinden soll, wurde von der Tastatur 
aus eingegeben. Es kann daher nicht auf dem Massenspeicher 


gefunden werden. 
your stamp : 


sie werden aufgefordet, ihr Namenskürzel einzugeben. Denken 


Sie sich eines aus; es kann z.B. Aus Ihren Initialien und 
den Datum bestehen. 


KASSETTENVERSION 


ChSunErr 


Beim Screentausch über dun Userport trat ein Prüfsummen- 
fehler auf. 


error ### : <meldung> load/save 


Eine LI/O-Operation konnte nicht durchgeführt werden, weil 
der Fehler <meldung> auftrat. 


no ramdisk 


Es existiert keine Ramdisk. Wenn Sie eine Ramdisk benutzen 
wollen, müssen Sie sie zuerst einrichten (s. "ultraFORTH83 


für Kassettenrecorder" ). 
ramdisk full 


Die Ramdisk ist voll. Löschen Sie Sersens oder Sichern Sie 
die Ramdiak und legen Sie eine neue an (s. KRDDEL EMPTY- 


BUFFERS ). 
range! 
Die bei Ausführung von RDNEW auf dem Stack befindlichen 
Werte sind nicht plausibel. 
STxıxx 
Das ist die Einschaltmeldung des Supertape. 


SyncErr 
Analog ChSunErr 


terminated 
Analog ChSumErr 
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VERSCHIEDENES 


can't ba DEBUGged 
Der Tracer kann das zu tracende Wort nicht verarbeiten. 
Evtl. ist es in Maschinencode geschrieben. 


Savear-srror 
BAVESYETEM gibt dieses Meldung aus. 


Task error 
Bine Task hat ABORT" oder ERROR" ausgeführt, was norma- 
lerweise einen Systemabsturz versursacht. 

traca dump is 
Siehe Kap. 7.3 dem Handbuches 
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